В данном скрипте использовались
для работы с файловой системой
Set FSO = CreateObject(«Scripting.FileSystemObject»)
для работы с папками
Set Folder = FSO.GetFolder(sMainDir)
для работы с файлами
Set File = FSO.GetFile(sFileOrig)
и для копирования
File.Copy sMainDir & «\» & SubFolder.Name & «\» & sOrigFile
сам скрипт
‘ === Script Information Header ===
‘ Script Name: ‘ Copy Fin.db;
‘ Date: ‘ 7-09-2010;
‘ Author: ‘ Goncharov Stepan;
‘ Description: ‘
‘=== Main ===
Option Explicit‘=== ===
Dim sMainDir
Dim FSO
Dim Folder
Dim SubFolder
Dim File
Dim sFileOrig
Dim sOrigFile‘=== ===
sMainDir = «оригинальная папка»
sOrigFile = «файл который надо скопировать»
sFileOrig = sMainDir & «\» & sOrigFile
‘MsgBox sFileOrig‘=== ===
Set FSO = CreateObject(«Scripting.FileSystemObject»)
Set File = FSO.GetFile(sFileOrig)
Set Folder = FSO.GetFolder(sMainDir)
For Each SubFolder In Folder.SubFolders
File.Copy sMainDir & «\» & SubFolder.Name & «\» & sOrigFile
Next
можно по подробние как перемещать и копировать файлы буду очень благодарен ато ищу уже наверно 2 дня
напишите лучше сюда задачу которая перед вами стоит, так мы будем более предметны, и тогда распишу что да как
Нужно скопировать папку на несколько компьютеров. Список адресов лежит в файле, т.е. открываем файл, читаем путь, копируем, следующий путь…
А можете мне помочь. В исходной папке есть сотни файлов, все чётные надо скопировать в одну папку, а все не четные в другую папку.
а как задать чтобы перезаписывал существующие если есть?
а под виндовс 7 будет работать?
Не пробовал
Вроде под 7 тоже пашет