sletning af filer i forhold til last modified date

Måske inspiration herfra -> http://www.eksperten.dk/spm/393648 !

Jeg havde nu håbet på noget lidt mindre kompliceret :)

Men tak for linket :)

... så ka' jeg så spørge dig om du har noget bidrag til denne -> http://www.eksperten.dk/spm/815313
(Sorry for Spam *S*)

... og så følger jeg selv med her ...

Jeg fik det til at virke med kodestumper stjålet fra det link du gav mig http://www.eksperten.dk/spm/815313
Tak for det :) Send et svar så får du point.
Her er scriptet:

Dim objFSO
Dim objFolder, objFiles, sFolderName
Dim Folder, File
Dim ret
Dim MaxDaysOld
Dim FilesDeleted

FilesDeleted = 0
sFolderName = "c:\sites\ASP test\uploaded\"
MaxDaysOld = 3
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sFolderName)
Set objFiles = objFolder.Files

For Each File In objFiles
  ret = DaysOld(File.Path)
    ' If the file older then the wanted # of days then delete it.
    If ret > MaxDaysOld Then
        objFSO.DeleteFile File, True
        FilesDeleted = FilesDeleted + 1   
    End If
Next
Response.Write ("Number of files deleted: ")
Response.Write (FilesDeleted)




'----====DaysOld(Path)====----
Function DaysOld(sFileName)

Dim objFile

On Error Resume Next

Set objFile = objFSO.GetFile(sFileName)
Call CheckError

' Return the difference in days.
DaysOld = Int(Now() - objFile.DateLastModified)

End Function
'----========----

Ping...
(Det var et [svar])