Можно ли на VBS написать скрипт для копирования файлов на сетевой рессурс?
Формулировка задачи:
Если можно то подскадите как
1) Нужно пройтись по подкаталогам и в них взять файлы с определенным расширением
2) Каждый файл нужно скачать на сеть, но при этом место в сети определяется по наименованиею файла. т.е в файле первые два символа указывают на конкретный каталог на сети.
спасибо.
1) Нужно пройтись по подкаталогам и в них взять файлы с определенным расширением
2) Каждый файл нужно скачать на сеть, но при этом место в сети определяется по наименованиею файла. т.е в файле первые два символа указывают на конкретный каталог на сети.
спасибо.
Решение задачи: «Можно ли на VBS написать скрипт для копирования файлов на сетевой рессурс?»
textual
Листинг программы
The following code illustrates the use of the Files <font color="blue">property</font>:
<font color="blue">Function</font> ShowFileList(folderspec)
<font color="blue">Dim</font> fso, f, f1, fc, s
<font color="blue">Set</font> fso = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
<font color="blue">Set</font> f = fso.GetFolder(folderspec)
<font color="blue">Set</font> fc = f.Files
<font color="blue">For</font> <font color="blue">Each</font> f1 <font color="blue">in</font> fc
s = s & f1.<font color="blue">name</font>
s = s & <font color="teal">"<br>"</font>
<font color="blue">Next</font>
ShowFileList = s
<font color="blue">End</font> <font color="blue">Function</font>