content top

VBS Скрипт копирования файла во вложенные папки

В данном скрипте использовались
для работы с файловой системой

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



8 комментариев to “VBS Скрипт копирования файла во вложенные папки”

  1. game_star:

    можно по подробние как перемещать и копировать файлы буду очень благодарен ато ищу уже наверно 2 дня

    • напишите лучше сюда задачу которая перед вами стоит, так мы будем более предметны, и тогда распишу что да как

      • Kir:

        Нужно скопировать папку на несколько компьютеров. Список адресов лежит в файле, т.е. открываем файл, читаем путь, копируем, следующий путь…

  2. Andrei:

    А можете мне помочь. В исходной папке есть сотни файлов, все чётные надо скопировать в одну папку, а все не четные в другую папку.

  3. а как задать чтобы перезаписывал существующие если есть?

  4. а под виндовс 7 будет работать?

  5. Создатель сайтов:

    Вроде под 7 тоже пашет

Leave a Reply to Создатель сайтов