Windows: cancellare i file più vecchi di un certo numero di giorni
Su linux c’è la shell che fà miracoli, su windows c’è il dos che fà assai schifo…
Per fortuna che hanno messo il VbScript, anche se la prima cosa che c’è stata fatta sono stati dei virus, ma tant’è.
Problemino della sera: data una cartella c:\pippo vogliamo cancellare i file che riportano un time stamp più vecchio di un numero arbitrario di gionri, poniamo sette.
Soluzione:
Dim Fso
Dim Directory
Dim Modified
Dim Files
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Directory = Fso.GetFolder("c:\pippo")
Set Files = Directory.Files
For Each Modified in Files
If DateDiff("D", Modified.DateLastModified, Now) > 7 Then Modified.Delete
Next
incollare le righe in neretto in un file di testo, indentatelo a modo che così è illeggibile ma WordPress me lo attacca a sinistra, maledetto lui, grazie Luna della dritta 
, dategli estensione VBS e seguitelo come meglio credete.
Attenzione: non lasciate lo script DENTRO la cartella che volete tenere sgombra, perchè altrimenti dopo una settimana si cancella da solo…
Una volta mi era capitata l’esigenza ed avevo risolto con l’utility forfiles: http://www.ss64.com/nt/forfiles.html
per wordpress metti il markup pre per racchiudere il codice e dovrebbe lasciarti tutto formattato, almeno così dovrebbe essere se il CSS del tema non è stato fatto da un pazzo
Noo… Perche’ dici che il DOS fa assai schifo… Poverino, a me piaceva tanto ai tempi.
POi se mi parli di oggi potrei anche darti ragione, dicendo che viene usato come un’ ombra di cio’ che fu.
Buona continuazione
WebDataBank
Windows: cancellare i file più vecchi di un certo numero di giorni…
Su linux c’è la shell che fà miracoli, su windows c’è il dos che fà assai schifo…
Per fortuna che hanno messo il VbScript, anche se la prima cosa che c’è stata fatta sono stati dei virus, ma tant’è…