[Iska]

Вы ведь изначально не стали озвучивать, что нужно делать в случае наличия одноимённого файла в целевой папке.

Теперь так:

читать дальше »

Код:

Option Explicit

Dim strSourceFolder
Dim strDestFolder
Dim objFile

Dim strFindString
Dim strContent


strSourceFolder = "c:\Source"
strDestFolder   = "c:\Destination"
strFindString   = "что ищем"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		If .FolderExists(strDestFolder) Then
			For Each objFile In .GetFolder(strSourceFolder).Files
				If Not .FileExists(.BuildPath(strDestFolder, objFile.Name)) Then
					With objFile
						With .OpenAsTextStream()
							strContent = .ReadAll()
							.Close
						End With
						
						If InStr(strContent, strFindString) > 0 Then
							WScript.Echo "File [" & objFile.Path & "] move into [" & strDestFolder & "]"
							
							.Move strDestFolder & "\"
						End If
					End With
				End If
			Next
		Else
			WScript.Echo "Destination folder [" & strDestFolder & "] not found"
		End If
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found"
	End If
End With

WScript.Quit 0