[mwz]

А еще в самом идеале - чтобы файлы перемещались в определенную папку на раб. столе, ну скажем "Папка на удаленияе" »

А вот это уже реально без привлечения специфических приёмов Проводника, пользуясь хотя бы тем же Windows Scrip Host

[ses333ser]

Спасибо, но я плохо знаю языки программирования учусь vbs (у) и батнику.
Вот скрипт такой получился. Не поможете еще раз там ошибку выдает, не могу понять почему?

DIM fso
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "\Рабочий стол\"
objFinishFolder = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") & "\Папка на удаление\"
Set objfolder= fso.GetFolder("objStartFolder")
Set colFiles = objStartFolder.Files,objFinishFolder.Files
For Each objFile in colFiles
If DateDiff("D", objFile.DateCreated, Now) > 3 Then
objFile.Attributes = 1
objFile.MoveFile (objStartFolder, objFinishFolder)
End If
Next

ShowSubFolders FSO.GetFolder(objStartFolder,objFinishFolder)
Sub ShowSubFolders(Folder)

For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(subfolder.Path)
p=false
i=Lbound(arrpath)
WHILE (p=false) and (i<=ubound(arrpath))
if (objfolder.path=arrpath(i) ) then
p=true
End if
i=i+1
WEND
if (not p) then
Wscript.Echo objFolder.path & " - " & "udalat` mozna"

Set colFiles = objFolder.Files
If DateDiff("D", objFile.DateCreated, Now) > 3 Then
objFile.Attributes = 1
objFile.MoveFile (objFolder.Files, objFinishFolder)
End If
Next
If objFolder.Subfolders.Count > 0 then
ShowSubFolders SubFolder
End If
If subFolder.Files.Count > 0 AND subFolder.Subfolders.Count > 0 then
MsgBox "Directory " & subFolder & "- ne pusta."
else
objFSO.DeleteFolder(subFolder.Path)
End If
Next
end sub