Supprimer un dossier

Contenu du snippet

Clik sur le fichier, une fenètre s'ouvre et te demande kel fichier veut tu supprimer.

Source / Exemple :


set fso=createobject("scripting.FileSystemObject")
dim Z
B=inputbox("Répertoire où il faut effacer les fichiers sans le ' \ ' final ?","REPERTOIRE ?")

fso.deletefolder(B),true
msgbox"fichiers "+Z+" supprimés dans le répertoire "+B+"",vbinformation,"Job Done"

A voir également