Hvordan sletter jeg filer i windows der er ældre end d.d.

Præcist her:
http://www.eksperten.dk/spm/393648

Øhhh - ku' det bruges ?

Øhhh [2] - ku' det bruges ?

Dette vbs-program vil slette filer i mappen c:\test som er ældre en 1 dag

option explicit
call hoved_

sub hoved_

dim sletfil, gammel, fso

  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  set fso = CreateObject ("Scripting.FileSystemObject")
  Dim f, f1, fc, s
  Set f = fso.GetFolder("c:\test")
  Set fc = f.files

  For Each f1 in fc
      if (dateDiff("d",f1.DateLastModified,now)) > 1 then
        set sletfil = fso.GetFile(f1.path)
        sletfil.delete
      end if
  Next

end sub

Det der kommer nærmest er nok majsmarken, da jeg har rettet lidt i det og fundet det jeg skal bruge. Tak for hjælpen

Hvis du (Majsmarken) smidet er svar, så kan jeg give dig point

ping...

(Hvad har du tilrettet ? Det kunne være at jeg kunne bruge den detalje...)