internet explorer 7

Le
wess3310
Bonjour,
j'ai un probleme mon code qui me permet d'afficher les fichiers temporaires internet puis les supprimer fonctionne avec internet explorer6 mais avec explorer7 il ne fonctionne pas ni affichage ni suppression voici mon code

'""""""""""""""""""" code d'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

'"""""""""""""""""""""""""""""""""""" code de suppression

Public Sub InternetUn()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
On Error Resume Next
CheminRep = DossierSpecial(32) ' dossier special 32 = "~~Local Settings"
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
'''''''''''''''''''''''''''''''''''

aidez moi s'il vous plait merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jérémy Jeanson
Le #17432951
Je n'ai pas vérifié, mais je crois que les répertoires tremporaires
varie d'une version à l'autre. Peut être serrait il préférable
d'utiliser les variables d'environnement afin que ton code passe sur
toutes les machines et donc toutes les version d'IE

Jérémy JEANSON
MCP

wess3310 a écrit :
Bonjour,
j'ai un probleme mon code qui me permet d'afficher les fichiers temporaires
internet puis les supprimer fonctionne avec internet explorer6 mais avec
explorer7 il ne fonctionne pas ni affichage ni suppression voici mon code

'""""""""""""""""""" code d'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

'"""""""""""""""""""""""""""""""""""" code de suppression

Public Sub InternetUn()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
On Error Resume Next
CheminRep = DossierSpecial(32) ' dossier special 32 = "~~Local Settings"
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
'''''''''''''''''''''''''''''''''''

aidez moi s'il vous plait merci d'avance


Publicité
Poster une réponse
Anonyme