Цитата Vertolet:
|
Перерыл весь форум, нигде нет примера скрипта по переносу из одной папки в другую, файлов с разными масками. »
|
Какие тут могут быть примеры?
Код:
Option Explicit
Dim objFSO
Dim strMask
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
With objFSO
For Each strMask In Array("*.txt", "*.exe", "bla-bla-bla*.*")
.MoveFile .BuildPath("c:\Source", strMask), "c:\Destination"
Next
End With
Set objFSO = Nothing
WScript.Quit 0
Надо только учитывать, что если не будет найдено файлов, подходящих под маску — возникнет ошибка времени исполнения. И Вам уже решать, что делать: то ли обрабатывать её, то ли игнорировать.
Цитата Vertolet:
|
пример vbs скрипта, который по содержимому файла копирует его определенный каталог? »
|
Нужно как минимум знать кодировку файла.
Цитата Vertolet:
|
если в файле встречается слово "Например" то перенести его в папку "Например", "Например1" в папку "Например1" и т.д.... »
|
Файл с «Например1» в папку «Например1» не будет перенесён, ибо он уже будет в папке «Например».
