-Paul Randall

http://cwashington.netreach.net/depo/view.asp?Index=723&ScriptType=vb...

--
Anthony B
------------------------
I pretend to work, they pretend to pay me

: Hi there,
: I have application on window 2000 that will create hundreds of file each
: day.  I would like to schedule a daily task to delete files older than a
: certain date, e.g. a week from today.
: Please advise what alternatives I can do this.
: Thanks in advance.
:

Try this

Option Explicit
dim fso, file, daysBack, toDelete(100000), i, ii
daysBack = 7
Set fso = CreateObject("Scripting.FileSystemObject")

For Each file In fso.GetFolder("C:\test\").files
  If DateValue(file.datelastModified) < DateValue(Now - daysBack) Then
    toDelete(i) = file.Path
    i = i + 1
  End If
Next

for ii = 0 to i-1
  fso.DeleteFile (toDelete(ii))
next

Set fso = Nothing
msgbox "complete"

====================================
today=date()
DaysOld=0
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFolder("E:\shared\upload")
Set colSubfolders=objFolder.subfolders
For Each objSubFolder in colSubFolders
    DaysOld=Datediff("d",objSubfolder.DateCreated,today)
    IF DaysOld > 7 Then
       objSubFolder.Delete
    End If
Next
====================================

--
Posted via http://dbforums.com