[Iska]

Один вопрос, strSourceFile = "c:\Source\0001.txt" - зачем этот файл источник? »

См. выше:

необходим пример vbs/js скрипта который по содержанию файла будет перекидывать его в определенную папку »

Вы просили пример для файла — я его привёл.

Его можно заменить на каталог? Т.е. что бы он в определенной папке искал... »

Нет. Это будет другой скрипт:

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

Код:

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
				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
			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

Условие:

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

остаётся тем же.