Skip to content

Svuotare una cartella con VBS

28 luglio 2010

Più volte mi sono trovato nella necessità di cancellare periodicamente 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 uo script in vbs che cancella tutto il contenuto della cartella indicata mantenendo però i permessi assegnati.

L’ho utilizzato spesso in aviende nella quale esiste una cartella condivisa per lo scambio dei file che ovviamente nessuno mai svuota…questo script pianificato nel fine settimana da ottimi risultati.

‘ 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

Lascia un commento

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...