[Iska]

Пример…

Код:

Option Explicit

Dim strSourceFile
Dim strDestFolder
Dim strFindString
Dim strContent


strSourceFile = "c:\Source\0001.txt"
strDestFolder = "c:\Destination"
strFindString = "что ищем"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		If .FolderExists(strDestFolder) Then
			With .GetFile(strSourceFile)
				With .OpenAsTextStream()
					strContent = .ReadAll()
					.Close
				End With
				
				If InStr(strContent, strFindString) > 0 Then
					.Move strDestFolder & "\"
				End If
			End With
		Else
			WScript.Echo "Destination folder [" & strDestFolder & "] not found"
		End If
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found"
	End If
End With

WScript.Quit 0

При существовании в папке назначения одноимённого файла попытка перемещения оригинального файла завершится с ошибкой времени исполнения.