Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic internet explorer 7

internet explorer 7

1 réponse
Avatar
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jérémy Jeanson
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