[VBS] Cancellazione di file vecchi (antecedenti ad una certa data)

[fosforo]

Ciao
Dopo tanto cercare sto editando questo script:

Dim i, fso,fsb, cart, h1,f, f1, sf,BasePath, CalcResult, fNameArray()
BasePath = "E:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(BasePath)
Set sf = f.SubFolders
For Each f1 in sf
CalcResult = DateDiff("d",f1.DateCreated,Now)
if CalcResult > 45 Then
ReDim preserve fNameArray(i)
fNameArray(i) = f1.Name
i = i + 1
end If
Next

For Each fName in fNameArray
FORFILES /S /P (BasePath & "\" & fName) /M *.sgi /D -60 /C "CMD /C del /q 0x22@FILE0x22
Next


Chiaramente non funziona, ma non riesco ad andare avanti.
Dove sbaglio??

Grazie anticipatamente

[oregon]

Sì ... ma cosa dovrebbe fare?

Non ho tanta intenzione di provare uno script che NON funziona e cancella dei file ...

E poi, scusa ... ma cosa e' questa cosa

FORFILES /S /P (BasePath & "\" & fName) /M *.sgi /D -60 /C "CMD /C del /q 0x22@FILE0x22


???

[fosforo]

Beh... per nn cancellare files basta editare
"BasePath = "E:\"
e sostituire "E:\" con "A:\" cosi cancella solo dal floppy.
FORFILES è un comado dos che permette di cancellare sequenze di file.
Quella riga lanciata da una Shell funziona benissimo.
Ho diviso lo script in due parti, la prima parte rileva le cartelle presenti nel disco E:\ con files più vecchi di 45 giorni
"if CalcResult > 45 Then",
la seconda parte lancia FORFILES e relativi attributi, dando come path le cartelle rilevate dalla prima parte dello scipt.
In questo modo cancella i files più vecchi dalle cartelle e dalle sottocartelle.

[oregon]

Originariamente inviato da fosforo
Beh... per nn cancellare files basta editare
"BasePath = "E:\"
e sostituire "E:\" con "A:\" cosi cancella solo dal floppy.

Questo lo capisco ... ma se spieghi in dettaglio cosa dovrebbe fare lo script, ognnuo puo' fare delle prove prendendo le dovute precauzioni ...

Anche perche', se non fai cosi', non ottieni tante risposte concrete ...

FORFILES è un comado dos che permette di cancellare sequenze di file.

E' un tool del Resource Kit che deve essere scaricato in quanto non fa parte dei comandi standard del DOS ... e dovresti dirlo ... anche perche' bisogna avere il tempo di studiarne il funzionamento, se non lo si conosce ...

[fosforo]

Certo
Scusami per l'imprecisione.
Lo script dovrebbe cancellare tutti i files con data antecedente a 60gg dalle cartelle e dalle sottocartelle del disco E:\.

Tutto qui.