[shell winxp] eliminare vecchi file

[nicola75ss]

Per l'eliminazione dei file in base alla data di creazione per il momento ho risolto così.
Se avete altri suggerimenti sono sempre ben accetti.

cancella.vbs

Dim oFSO, oFolder, oFiles, oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Documents and Settings\Utente\Desktop\esperimenti")
Set oFiles = oFolder.Files
for each oFile in oFiles
if oFile.DateCreated < DateAdd("d", -5, Now()) then
     oFile.Delete True
end if
next