Можно ли на VBS написать скрипт для копирования файлов на сетевой рессурс?

Формулировка задачи:

Если можно то подскадите как
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>


                        