VBS

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 комментариев к «VBS Скрипт копирования файла во вложенные папки»

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

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

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

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

Добавить комментарий для Kir Отменить ответ

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.