[Iska]

Перерыл весь форум, нигде нет примера скрипта по переносу из одной папки в другую, файлов с разными масками. »

Какие тут могут быть примеры?

Код:

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

Надо только учитывать, что если не будет найдено файлов, подходящих под маску — возникнет ошибка времени исполнения. И Вам уже решать, что делать: то ли обрабатывать её, то ли игнорировать.

пример vbs скрипта, который по содержимому файла копирует его определенный каталог? »

Нужно как минимум знать кодировку файла.

если в файле встречается слово "Например" то перенести его в папку "Например", "Например1" в папку "Например1" и т.д.... »

Файл с «Например1» в папку «Например1» не будет перенесён, ибо он уже будет в папке «Например».

[Vertolet]

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

[Iska]

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

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

Код:

		On Error Resume Next
		.MoveFile .BuildPath("c:\Source", strMask), "c:\Destination"
		On Error Goto 0