tous supprimer dans un dossier

Question

slt 

je veux cr&#233;er un prog qui supprime tous les cookies,tous les fichier et
dossier dans temp,tempoy internet files et dans historique.

(jutilise win 98)

voici un passage de mon code



Private Sub tempory_Click()

Dim t

t = Dir("C:\WINDOWS\Temporary Internet Files")

Kill (t)

MsgBox "tous les fichiers dans tempory internet files ont &#233;t&#233; supprim&#233;s", vbInformation + vbOKOnly, "suppression fini"

End Sub



et j'obtient le msg d'erreur suivant "pacht not found"

comment je dois modifier mon code pour que sa supprime les fichiers ?



bye bye

jpleroisse · Answer

Bonsoir,



Private Sub Command1_Click()

   Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    fso.DeleteFile ("C:\WINDOWS\Temporary Internet Files\*.*"), True

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Tous supprimer dans un dossier

1 réponse

Discussions similaires