vbs скрипт поиска файлов, и копирования всех найденых файлов
Добавлено: 12 дек 2007, 21:22
Нужен скрипт, написанный на vbs, которые бы осуществлял поиск всех файлов в указанном каталоге, в том числе искал файлы и подкаталогах, и копирова все найденный файлы в уазанную папку.
Например имеется каталог D:\Games, в нём 3 подкаталога, и нужно чтоб ВСЕ файлы из дириктории D:\Games и всех подкаталогов были скопитрованны в указанную мне й папку, например D:\FFF
У сеня есть код который ищет файлы и записывает их в блокнот:
Было бы хорошо еслиб он не записывал в блокнот, а копировал в директория найденные файлы.
Кто может, помогите.
Например имеется каталог D:\Games, в нём 3 подкаталога, и нужно чтоб ВСЕ файлы из дириктории D:\Games и всех подкаталогов были скопитрованны в указанную мне й папку, например D:\FFF
У сеня есть код который ищет файлы и записывает их в блокнот:
Код: Выделить всё
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TF = FSO.CreateTextFile("C:\files.txt")
Const FOR_READING = 1
strFolder = "D:\Games"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
TF.Write objFolder.Path
TF.Write vbcrlf
Set colFiles = objFolder.Files
For Each objFile In colFiles
TF.Write objFile.Path
TF.Write vbcrlf
Next
ShowSubFolders(objFolder)
Sub ShowSubFolders(objFolder)
Set colFolders = objFolder.SubFolders
For Each objSubFolder In colFolders
TF.Write objSubFolder.Path
TF.Write vbcrlf
Set colFiles = objSubFolder.Files
For Each objFile In colFiles
TF.Write objFile.Path
TF.Write vbcrlf
Next
ShowSubFolders(objSubFolder)
Next
End SubБыло бы хорошо еслиб он не записывал в блокнот, а копировал в директория найденные файлы.
Кто может, помогите.