[OSArev]

Только два момента: 1. Почему-то выскакивает окно с цифрой 0 и единственной кнопкой Ок по поводу каждого файла, нельзя ли его не отображать, а то когда 200 файлов не очень удобно 2. Измените пожалуйста копировать на вырезать, я неправильно выразился. »

Код:

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.MoveFile objFile.Path, "c:\papka2\"	
			End If	
		End If
Next