[Ivan Bardeen]

Вот, VBS скрипт

Код:

DeathLine = 6
Folder = "c:\papka"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Folder)
Set colFiles = objFolder.Files  

For Each objFile in colFiles
	Datefile = objfile.DateCreated
	DiffDate = DateDiff("d",Datefile,Now)
	WScript.Echo DiffDate
		If DiffDate > DeathLine Then
		objfile.Delete(TRUE)
			Else If objfile.Size < 9216 Then
				objfile.Delete(TRUE)
				Else
				objFSO.CopyFile objFile.Path, "c:\papka2\"	
			End If	
		End If
Next