Te lo ho adattato, un po' in fretta, non testato.
- Salvalo con in nome che ti pare ed estensione .vbs
- Diciamo che lo hai salvato come DelOldF.vbs , da un cmd prompt elevato esegui:
cscript DelOldF.vbs
\\?\c:\temp 30 >> logfile.txt
dove \\?\c:\temp
é la cartella da cui vuoi partire (il prefisso \\?\ serve per cancellare nomi over 255 char)
30
sono i giorni di anzianitá (se oggi meno la data di creazione é superiore la cartella viene cancellata)
Lo script manda in output le cartelle che cancella, per questo ti ho indicato di redirigere su un file di testo.
Fammi sapere se funziona che cosí magari lo miglioro e lo metto sul web che sta cosa dei 255 caratteri pare essere un problema diffuso.
Set objArgs = Wscript.Arguments
RootDir=objArgs(0)
Days=objArgs(1)
DeleteOldFolders RootDir,Days
Sub DeleteOldFolders(root, maxAgeInDays)
Dim fso, folder
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(root) Then
For Each folder in fso.GetFolder(root).SubFolders
dd=cint(DateDiff("d", folder.DateCreated, Date))
if (dd > cint(maxAgeInDays)) Then
wscript.echo "Cancello " & folder
folder.Delete True
End If
Next
else
wscript.echo folder & " non esiste"
End If
Set fso = Nothing
End Sub
This post is provided AS IS with no warranties or guarantees, and confers no rights.
~~~
Questo post non fornisce garanzie e non conferisce diritti
