Svuotare una cartella con VBS

Più volte mi sono trovato periodicamente nella necessità di cancellare una cartella e tutto il suo contenuto.

Utilizzando i comandi dos mi sono trovato spesso delle problematiche dovute alla ricorsività delle sottocartelle.

Mi è venuto in aiuto uno script in vbs che cancella tutto il contenuto della cartella indicata mantenendo però i permessi assegnati.

L’ho utilizzato spesso in situazioni nella quale esiste una cartella condivisa per lo scambio dei file che ovviamente nessuno mai svuota…

Questo script può essere pianificato nel fine settimana tramite lo schedulatore, operazioni pianificate, dei sistemi Microsoft e da ottimi risultati.

Script VBS per cancellare una cartella

‘ Script Per Svuotare Cartelle senza perdere condivisioni o permessi
‘
option explicit
dim oFSO
dim oFolder
dim oSubFolders
dim oFiles
dim oSubfolder
dim objFile
dim rFiles

set oFSO = CreateObject(“Scripting.FileSystemObject”)

‘impostare il path della cartella che si vuol cancellare

set oFolder = oFSO.getfolder(“C:CartellaDaSvuotare”)
set rFiles=oFolder.Files

For Each objFile in rFiles
objFile.Delete true
Next

set oSubFolders = oFolder.Subfolders
For Each oSubfolder in oSubFolders
set oFiles = oSubfolder.Files
For Each objFile in oFiles
objFile.Delete true
Next
oSubFolder.Delete true
Next

set oFolder = nothing
set oFSO = nothing