[решено] Перенос файлов с разной маской в одну папку

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Перенос файлов с разной маской в одну папку

Всем добрый день!
Перерыл весь форум, нигде нет примера скрипта по переносу из одной папки в другую, файлов с разными масками. Примеры как файлы с одной маской переместить есть, а мне нужно с разными (около 30 масок). Подскажите плиз как можно это реализовать. Заранее благодарен.
З.Ы. И ещё, у кого нить есть пример vbs скрипта, который по содержимому файла копирует его определенный каталог? Т.е. если в файле встречается слово "Например" то перенести его в папку "Например", "Например1" в папку "Например1" и т.д.... Спасибо.

Цитата:

Цитата 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» не будет перенесён, ибо он уже будет в папке «Например».

Iska, спасибо огромное! Как прописать что бы он игнорировал отсутствие файла?
По поводу "Например" - "Например" и "Например1" это разные файлы, т.е. мне нужно что бы если в файле попалось слово "кот", то файл переместился в папку "коты", если в файле попалось слово "собака", то соответственно в папку "собаки"...кодировка ANSI.

Цитата:

Цитата Vertolet

Как прописать что бы он игнорировал отсутствие файла? »

Напишите, например, так:

Код:

                On Error Resume Next

                .MoveFile .BuildPath("c:\Source", strMask), "c:\Destination"

                On Error Goto 0