[Ivan Bardeen]

Тогда добавьте конструцию, которую я привожу для каждой операции над файлом (Выделено жирным).
Она будет вести лог для каждой операции над файлом и записывать его в c:\temp\logtest.txt

Код:

On Error Resume Next
Const ForAppend = 8

Set FSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("WScript.Shell")

If Not FSO.FolderExists("1") Then											
	FSO.CreateFolder("1")	
	FSO.CreateFolder("1\2")
End If

Const OverwriteExisting = True
Set FOut = fso.OpenTextFile("c:\temp\logtest.txt",ForAppend,True)

FSO.MoveFile "1.txt" , "1\"		
If Err.Number <> 0 Then
text = "Ошибка:" & " " & Err.Number & " " & "Описание:" & " " & Err.Description & " " & "При операции над файлом: 1.txt"
FOut.WriteLine Text
Else 
text = "Операция над файлом 1.txt прошла успешно" 
FOut.WriteLine Text
End If
FSO.CopyFile "2.txt" , "1",OverwriteExisting
FSO.MoveFile "2.txt" , "1\2\"									
FSO.MoveFile "3.txt" , "1\"									
FSO.MoveFile "4.txt" , "1\"									


WScript.Echo "Распределение завершено" 

Set Shell = Nothing
Set FSO   = Nothing

WScript.Quit