bonjour
j'ai un code qui me permet d'affciher les fichiers temporaires Internet dans une listebox puis les supprimer avec un boton, avec internet explorer6 ça marche trés bien (l'affichage et la suppression) mais avec explorer7 ça ne marche pas !!!! pourtant les fichiers temporaires ont le meme chemin !!!
"C:\Documents and Settings\Administrateur\Local Settings\Temporary Internet Files"
ou dossierspecial (32)
voici le code :
""""""""""""""""""""""""""""""""""""""""""""""" pour l'affichage
On Error Resume Next
CheminRep = DossierSpecial(32)
SetAttr CheminRep, vbDirectory
Dir1.Path = CheminRep
Total = Dir1.ListCount - 1
Fichier$ = Dir1.List(0)
Dir1.Path = Fichier$
For T = 0 To Total
CheminRep = Dir1.List(T)
SetAttr CheminRep, vbDirectory
Fichier$ = Dir(CheminRep + "\*.*")
Do While Fichier$ <> ""
List1.AddItem Fichier$
Fichier$ = Dir
Loop
Next
List1.Refresh
""""""""""""""""""""""""""""""""""""""""""""""""""""" la suppression avec cette fonction
Public Sub InternetUn()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
On Error Resume Next
CheminRep = DossierSpecial(32)
SetAttr CheminRep, vbNormal
Dir1.Path = CheminRep
Total = Dir1.ListCount
Fichier$ = Dir1.List(0)
Dir1.Path = Fichier$
SetAttr Dir1, vbNormal
Total = Dir1.ListCount
List1.Clear
List1.Refresh
For T = 0 To Total
CheminRep = Dir1.List(T)
SetAttr CheminRep, vbNormal
Kill CheminRep + "\*.*"
Next
CheminRep = DossierSpecial(32)
CheminRep = CheminRep + "\Content.IE5\"
fso.DeleteFolder CheminRep + "*"
List1.Clear
List1.Refresh
On Error GoTo 0
End Sub
""""""""""""""""
merci mes amis d'avance


















