Répertoire Temporary Internet Files pas reconnu par Dir

**Cupidon** · 14/02/2005, 18h17

Il est facile de supprimer les fichiers en VB.

Mais je ne sais pas comment supprimer les cookies de Internet Explorer.

**shwin** · 14/02/2005, 18h34

un cookie est simplement un fichier .txt qui se retrouvent sur le disque dur.

C'est la meme chose que de supprimer un autre fichier.

**Cupidon** · 14/02/2005, 18h45

Je sais. Pourtant, on ne peut pas supprimer les cookies avec le code de la FAQ. Il supprime bien les fichiers temp. du répertoire "fichiers temp Internet" mais pas les cookies.

**Cupidon** · 17/02/2005, 18h25

Je sais prq il ne veut pas considérer les cookies. En fait, il ne considère pas le répertoire des fichiers temporaires de Internet Explorer comme étant un répertoire!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Dir(chemin, vbDirectory) <> "" Then
        MsgBox chemin 
end if

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
chemin="C:\Documents and Settings\Propriétaire\Local Settings\Temporary Internet Files\"

Qqn connaît la parade?

**shwin** · 17/02/2005, 18h36

ca fonctionne chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim chemin
chemin = "C:\WINDOWS\Local Settings\Temporary Internet Files\"
If Dir(chemin, vbDirectory) <> "" Then
        MsgBox chemin
End If

**Cupidon** · 17/02/2005, 18h45

Je viens d'essayer et ça marche pas non plus.

Prq remplacer Doc and Settings\Proprietaire\ par WINDOWS?

J'ai regardé, je n'ai pas trouvé le rep Local Settings dans WINDOWS.

**shwin** · 17/02/2005, 20h11

je suis sous win98, alors c'est pour ça

ce répertoire change. Il dépend de l' OS.

**Cupidon** · 17/02/2005, 22h01

Ok, moi, je travaille sous Win XP. Et apparement, c'est un répertoire spécial. Qd on clique droit dessus, il donne une boîte de dialogue différente des autres répertoire. L'ennui, c'est que la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dir(repertoire, vbDirectory)

donne une chaîne vide!

Si qqn connaît une parade, ça m'aiderait.

**Cupidon** · 17/02/2005, 23h25

J'ai trouver une parade. J'utilise un autre code. Le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim objFS As FileSystemObject
Dim repCourant As String
 
Set objFS = New FileSystemObject
repCourant = "D:\Documents and Settings\Propriétaire\Local Settings\Temporary Internet Files\"
 
If objFS.FolderExists(repCourant) = True Then...

Il reconnaît bien le répertoire en question.

**shainna** · 09/11/2005, 11h59

sur xp temporary internet files est un fichier caché change son attribut et le code faq marchera
c comme si en fin de compte le chemin C:\documents and settings\username\local settings\temporary internet files

etait un chemin virtuel il faut donc changer son attribut (POUR XP)