[VBA-E] Repertoire temporary internet files

**Elstak** · 13/04/2006, 15h55

Wahou !! david coperfield il sait rien faire à coté de ca

bon alors en tapant ce que tu m'a di, j'ai un truc du genre cd "temporary internet files" qui s'ecrit et en tapant entrée, j'arrive à y acceder

mais en faisant dir apres bah il me met fichier introuvable (alors qu'il y en a pas mal dedans !! )

(au passage il y a pas une commande dos du type DIR mais qui affiche les fichiers cachés??)

**jmfmarques** · 13/04/2006, 15h59

Frappes DIR/? et lis tout...

**AlainTech** · 13/04/2006, 16h00

De toute manière, il y a peu de chance que tu arrives à quelque chose par cette voie.

Windows te "trompe" en te "montrant" les fichiers dans la racine de Temporary Internet Files alors qu'ils sont plusieurs répertoires plus bas.

Le premier rép (qui est commun) s'appelle Content.IE5.

Après, ça se corse.
Plusieurs répertoire sont créés avec des noms aléatoires.
Pas évident de savoir dans lequel de ces répertoires ton fichier se trouve.

Pour t'en convaincre, toujours sous DOS, en étant dans le répertoire Temporary Internet Files, tape la commande suivante:

Code :

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

attrib /S /D | more

Pour voir la page suivante, tape [Espace] et pour arrêter, Ctrl + C.

**jmfmarques** · 13/04/2006, 16h00

Envoyé par jmfmarques

Frappes DIR/? et lis tout...de l'utilisation de DIR

**Elstak** · 13/04/2006, 16h05

Ok, donc pas la peine de chercher dans cette voie

J'abandoone donc la commande dos mais pour le kill... c'est pas le meme probleme? car si il ne trouve sous dos, le probleme devrait toujours etre le meme non?

**AlainTech** · 13/04/2006, 16h07

Envoyé par AlainTech

Code :

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

attrib /S /D | more

La barre verticale est le caractère "barre verticale" et pas un I majuscule, ni un L minuscule.

**AlainTech** · 13/04/2006, 16h10

Envoyé par Elstak

mais pour le kill... c'est pas le meme probleme? car si il ne trouve sous dos

Il ne "trouve" pas sous DOS car il utilise le système de fichier tel qu'il est et pas celui "mis en forme" par Windows.

Maintenant, peut-être la question la plus importante:

Pourquoi veux-tu supprimer ce fichier (1e question) et pourquoi uniquement celui-là (2e question)?

**Elstak** · 14/04/2006, 08h27

coucou alain (et les autres aussi

)

Alors, pour répondre à ta question, je cherche à télécharger un fichier texte tres gros mais le server n'est pas super... donc parfois au lieu d'avoir la totalité, je n'ai que le debut...

Donc lors d'un precedent message (qui a du marquer certains esprit

) j'ai reussi à obtenier la derniere ligne du fichier et je la compare ensuite à un morceau de chaine qu'elle doit forcement contenir.
Si la derniere ligne ne contient pas cette chaine, alors le fichier est incomplet et donc je veux le retelecharger. Mais si je relance simplement le telechargement, il me retelecharge le meme en moins de 2 secondes (rassurez moi, il copie bien le fichier de temporary internet files?

)

Voilà pourquoi je veux le supprimer, pour qu'il retelecharge réelement le fichier et non qu'il le copie, ce qui est inutile car il sera toujours incomplet...

Si il est plus simple de vider tout le dossier, cette solution est envisageable

**Elstak** · 14/04/2006, 15h11

Je repense juste à un truc mais je n'ai aucune idée du comment faire.
(Peut etre que ce n'est meme pas possible...)

Il y a dans internet explorer, la possibilité de vider le dossier temporary internet files. Ne pourrait on pas l'utiliser ?

**AlainTech** · 14/04/2006, 15h31

J'ai commencé une recherche dans cette direction mais mon PC Win 98 du boulot n'a pas accepté certaines instructions.

Je n'ai pas eu le temps de continuer mes recherches mais voilà la piste que j'avais:

Code :

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

1
2
3
4
5
6
7
8
9
Const TEMPORARY_INTERNET_FILES = &H20&
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path & "\*.*"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strPath)

Trouvée sur ce site:
http://www.microsoft.com/technet/scr...4/hey1102.mspx

**Elstak** · 14/04/2006, 15h58

Ah, merci bien alain !
je verrai ca mardi

Bon week end à tous

**Elstak** · 18/04/2006, 11h34

Hello,

J'ai du nouveau concernant mon probleme.
Je suis allé voir sur ton lien Alain et j'ai repris le code que tu avais mis.
J'ai créé une procedure "ViderTemp" qui contient ce code et que j'appele lorsque le fichier est incomplet avant de lancer à nouveau son telechargement. Mais vu le résultat que je montre ci-dessous, on dirait que la procédure n'a pas d'effet (elle ne supprime pas le fichier du dossier temporary)

1
fichier1
18/04/2006 11:00:10
1
fichier2
18/04/2006 11:00:34
2
fichier2
18/04/2006 11:00:35
3
fichier2
18/04/2006 11:00:36
4
fichier2
18/04/2006 11:00:36

Ce resultat est obtenu à l'aide d'instruction debug.print. La premiere ligne montre le nombre d'essais de telechargements, le second le nom du fichier telechargé et la troisieme l'heure de fin de telechargement.

On remarque que le premier fichier se telecharge bien car il n'y a qu'un essai mais le second met 24 secondes avant de se telecharger et comme il est incomplet son telechargement est relancé mais il ne met qu'une seconde.... donc il est juste copié de temporary internet files et en allant voir dans ce dossier, au lieu de voir le fichiers directement, j'ai un dossier "content.IE5" qui contient un fichier caché "index.dat" et 4 dossiers avec des nom du type "2DOP274X" dans lesquels il y a les fichiers (un peu reparti au hasard dans chacun des 4 dossiers).

Si j'ouvre une page internet et que je retourne dans temporary internet files, je retrouve les fichiers directement placé dans ce dossier.

voici le code de la procédure censée supprimer lse fichiers de temporary internet files :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub ViderTemp()
    Const TEMPORARY_INTERNET_FILES = &H20&
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
    Set objFolderItem = objFolder.Self
    strpath = objFolderItem.Path & "\*.*"
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile (strpath)
End Sub

Si quelqu'un a une idée...

**jmfmarques** · 18/04/2006, 14h13

si tu tiens vraiment à "zigouiller" depuis VB (plutôt que sous DOS) tous les "fichiers" qui sont présents dans ce faux "répertoire", voici le lien qu'il te faut :
http://www.vbcode.com/Asp/showsn.asp?theID=8566

tout celà me paraît bien lourd ... pour bien peu ... mais bon !

**Elstak** · 18/04/2006, 15h33

Ah merci beaucoup jmf

C'est ce que j'avais deja essayé de trouver (mais pas reussi

)

donc le code fonctionne bien , j'ai mon dossier vidé mais (desole mais les userform et moi...) il faut bien que je mette le code de "Declaration" (voir lien de jmf

) dans un module et le reste dans userform? car à la base j'avais tout mit dans le userform mais toutes les declarations etiaent en rouge donc je me suis dit ca doit pas etre leur place...

Si je demande ca c'est car j'ai une erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command2_Click()
   Dim cachefile As String
 
  'delete the selected file
   cachefile = List1.List(List1.ListIndex)
   Call DeleteUrlCacheEntry(cachefile)
 
  'reload the list
   GetCacheURLList
End Sub

Au niveau du bouton 2 à la ligne :

Code :

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

1
2
 
cachefile = List1.List(List1.ListIndex)

"impossible de lire la propriete List. Index de table de proprietes non valide."

Je suppose qu'il faut cliquer sur command1 puis la 2 puis la 3? car si je commence par la 2 j'ai une erreur "utilisation incorrecte de null" car à mon avis il faut d'abord recuperer les nom grace à la command1.

Enfin j'ai une derniere question concernant ces userform

. Comment puis-je "simuler" les click sur les 3 command car je souhaite que le dossier temporary se vide automatiquement et non que quelqu'un ai à cliquer sinon il n'y a plus d'interet... (je voudrais ajouter dans le code un vidage du dossier si le fichier à telecharger est incomplet)

PS: j'ai tenté un truc du genre NomUserform.Command1.??? mais je ne sais pas trop quoi utiliser y'a pas .Click

**jmfmarques** · 18/04/2006, 19h20

Je laisse aux spécialistes VBA le soin d'adapter à VBA (celà ne me paraît pas devoir poser problème)
Tu dois surement avoir la possibilité de créer l'équivalent d'un module et d'une form (le contraire me surprendrait)
Je crois enfin que sous VBA, le nom "spontané" d'une listbox est différent

EDIT : je reviens vers toi après le repas, pour te dire :
1) que tu peux toujours établir une boucle sur une liste, pour "zigouiller", du genre :

Code :

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

1
2
3
4
 
For I = 0 ti ta_liste.liscount-1
  '...on zigouille
Next

2) Si tu veux ne pas "zigouiller" un par un mais y aller à la mitrailleuse sur l'ensemble, tu peux avantageusement, me semble-t-il, utiliser des tableaux dynamiques plutôt que des listboxes ! Et faire ton "zigouillage" à partir d'un tableau dynamique (array) avec une boucle.
3) un code n'est là que pour exposer ce que l'on peut faire ! A toi de l'adapter en fonction de tes besoins (il n'est pas nécessaire de recopier exactement un code. Quand on en a compris le principe, qui n'est pas dans une listbox mais ailleurs, on utilise ce principe à sa propre guise, ma foi !)

[VBA-E] Repertoire temporary internet files

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager