Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 Cписок файлов из заданной директории  [new]
Call
Member

Откуда: SFBA
Сообщений: 481
Как в DTS c помощью ActiveX Script Task получить список файлов из заданной директории и загрузить их в таблицу?
4 дек 03, 03:48    [445696]     Ответить | Цитировать Сообщить модератору
 Re: Cписок файлов из заданной директории  [new]
Hotey
Member

Откуда: Владивосток
Сообщений: 81
В VBA есть команда Dir(pathname\*.*), которая возвращает имя первого из файлов, удовлетворяющих маске *.*. Если далее выполнить просто Dir, то она вернёт имя следующего файла и т.д. Это есть в справке по VBA из Access.
Попробуй её.
4 дек 03, 06:50    [445726]     Ответить | Цитировать Сообщить модератору
 Re: Cписок файлов из заданной директории  [new]
Hotey
Member

Откуда: Владивосток
Сообщений: 81
Оговорился. Не команда, а функция.
4 дек 03, 06:59    [445730]     Ответить | Цитировать Сообщить модератору
 Re: Cписок файлов из заданной директории  [new]
Glory
Member

Откуда:
Сообщений: 104760
Function Main()


Dim fso, fsoFolder, fsoFile, WorkDirName

WorkDirName = DTSGlobalVariables("WorkDirectory").Value
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fso.GetFolder(WorkDirName)
For Each fsoFile in fsoFolder.Files
msgbox(WorkDirName + fsoFile.Name)
Next

Set fsoFile = Nothing
Set fsoFolder = Nothing
Set fso = Nothing

Main = DTSTaskExecResult_Success
End Function
4 дек 03, 10:31    [445983]     Ответить | Цитировать Сообщить модератору
 Re: Cписок файлов из заданной директории  [new]
Call
Member

Откуда: SFBA
Сообщений: 481
Thank you Glory. It is quite simple.

Function Main()


Dim fso, fsoFolder, fsoFile, WorkDirName, rs
Set rs = CreateObject("ADODB.Recordset")

WorkDirName = DTSGlobalVariables("WorkDirectory").Value
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fso.GetFolder(WorkDirName)
For Each fsoFile in fsoFolder.Files

rs.Open "insert into ins values ('" &fsoFile.Name& " ')", _
"Provider=sqloledb;Data Source=server;Initial Catalog=cv;" & _
"User Id=cv;Password=pass;"


Next

Set fsoFile = Nothing
Set fsoFolder = Nothing
Set fso = Nothing

Main = DTSTaskExecResult_Success
End Function
4 дек 03, 23:12    [447671]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить