Effacer le contenu d'un répertoire

Option Explicit
'Version du 10 juillet 2014

Dim CheminRepertoire, objFSO, objFolder, MonFolder

CheminRepertoire = "C:\Mon repertoire" 'Chemin du répertoire à traiter

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Effacement des fichiers contenus dans un répertoire
objFSO.DeleteFile CheminRepertoire & "\*.*", True

'Effacement des sous-dossiers contenus dans un répertoire
Set objFolder = objFSO.GetFolder(CheminRepertoire)
For Each MonFolder In objFolder.SubFolders
	objFSO.DeleteFolder MonFolder, True
Next
Set objFolder = Nothing

Set objFSO = Nothing

Wscript.echo "Terminé !"

Lien vers le fichier : cliquez ici