[Iska]

…нужно именно количество удалённых файлов? » правильно мыслите, »

Примерно так:

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

Код:

Option Explicit

' IOMode Enum
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8

' Format Enum
Const TristateUseDefault = -2
Const TristateTrue       = -1
Const TristateFalse      =  0


Dim objFSO
Dim strFolder
Dim objFile
Dim objDictionary
Dim elem

Dim objTS
Dim lngCount


If WScript.Arguments.Count = 1 Then
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	strFolder = WScript.Arguments.Item(0)
	
	If objFSO.FolderExists(strFolder) Then
		Set objTS = objFSO.OpenTextFile( _
			objFSO.BuildPath( _
				objFSO.GetParentFolderName(WScript.ScriptFullName), _
				objFSO.GetBaseName(WScript.ScriptFullName) & ".log" _
			), ForAppending, True, TristateTrue)
		
		objTS.WriteLine
		objTS.WriteLine FormatDateTime(Now())
		objTS.WriteLine
		
		Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
		
		lngCount = 0
		
		For Each objFile In objFSO.GetFolder(strFolder).Files
			If objDictionary.Exists(objFile.Size) Then
				objTS.WriteLine objFile.Path
				objFSO.DeleteFile objFile.Path, True
				lngCount = lngCount + 1
			Else
				objDictionary.Add objFile.Size, objFile.Path
			End If
		Next
		
		objDictionary.RemoveAll
		
		Set objDictionary = Nothing
		
		objTS.WriteLine
		objTS.WriteLine "Total delete: " & lngCount & " file(s)"
		
		objTS.Close
		Set objTS = Nothing
	Else
		WScript.Echo "Folder [" & strFolder & "] not found."
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <folder>"
End If

WScript.Quit 0

лучше сделать чтоб лог записывался -1 (предыдущую) папку, »

Я не понял Вашу мысль. Поясните, пожалуйста, на примере.