tous supprimer dans tempRésolu

Question

slt

je suis entrain de creer un prog qui supprime tous les fichiers et
dossiers dans temp,tempory inernet file ,cookies et l'historique



pour supprimer tous les fichier j'utilise la commande 



Private Sub temp_Click()

 Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    fso.DeleteFile ("C:\WINDOWS\TEMP\*.*"), True

End Sub

mais je sais pas commetn faire pour supprimer tous les dossier dans
temp sans savoir leur nom.vous pouvais me dire comment faire?



mci

jpleroisse · Accepted Answer

Bonsoir,

Ce code supprimera tous les dossiers dans Temp, et tous les fichiers
qu'ils contiennent, s'ils n'y a pas de dossiers, il ne supprimera rien
du tout.



Sub SuppDossiers()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder ("C:\WINDOWS\TEMP\*.*"), True

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Tous supprimer dans temp

1 réponse

Discussions similaires