[darkAge]

Нашел вот такой скрипт

Option Explicit

Dim fso
Dim objFolder
Dim strFolder
Dim objFiles
Dim objFile
Dim datDate

On Error Resume Next

'initialize parameters
strFolder = "D:\Folder"
datDate = Now - 7 'one week ago

'set object variables
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(strFolder)
Set objFiles = objFolder.Files

'loop through members of collection
For Each objFile in objFiles
'do something with file
Call DeleteOldFile(objFile, datDate)
Next

WScript.Quit Err.Number

Function DeleteOldFile(objFile, datDate)

'function deletes file which was created date specified and earlier

If objFile.DateCreated <= datDate Then
'WScript.Echo objFile.Name & " " & objFile.DateCreated
objFile.Delete
End If

End Function

но он удаляет файлы старше определенной даты

не много изменил его что бы работал с папками, а он почему то не удаляет их,


Option Explicit

Dim fso
Dim objFolder
Dim strFolder
Dim objFiles
Dim objFile
Dim datDate

On Error Resume Next

'initialize parameters
strFolder = "C:\move"
datDate = Now - 7 'one week ago

'set object variables
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(strFolder)
Set objFolder = objFolder.Files

'loop through members of collection
For Each objFolder in objFolder
'do something with file
Call DeleteOldFolder(objFolder, datDate)
Next

WScript.Quit Err.Number

Function DeleteOldFolder(objFolder, datDate)

'function deletes file which was created date specified and earlier

If objFolder.DateCreated <= datDate Then
'WScript.Echo objFolder.Name & " " & objFolder.DateCreated
objFolder.Delete
End If

End Function

где я не верно делаю?