[VBA-E] Repertoire temporary internet files

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

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??)

Frappes DIR/? et lis tout... :lol:

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:

---

attrib /S /D | more

---

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

Citation:

---

Envoyé par jmfmarques

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

---

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? :?

Citation:

---

Envoyé par AlainTech

Code:

---

attrib /S /D | more

---

---

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

Citation:

---

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)?

coucou alain (et les autres aussi :wink: )

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 :lol: ) 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? :lol: )

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 :D

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 ? :? :?

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:

---

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

Ah, merci bien alain !
je verrai ca mardi :P

Bon week end à tous

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)

Citation:

---

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. 8O

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

Code:

---

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... ;)

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 !:lol:

Ah merci beaucoup jmf :D

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... :oops:

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

Code:

---

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:

---

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 :evilred: . 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 :lol:

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
:D
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:

---

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 !);)

coucou,

j'ai compris mon erreur, en fait je devais selectionner un element de la liste avant de cliquer sur la command2 :oops:

je vais essayer de transformer le code (mais j'ai deja quelques difficultés).

je reviendrai si j'ai de gros souci ;)

Bon, finalement j'y arrive bien :D

Je met donc ce sujet comme résolu. Je n'ai pas de code final à mettre, je reprend le code du lien :

http://www.vbcode.com/Asp/showsn.asp?theID=8566

Je l'ai juste modifié pour qu'il soit adapté à mes besoins :P, j'ai encore quelque petits soucis pour reussir à ne supprimer qu'un seul fichier du dossier temporary mais j'ai créé un autre post pour ca.

Voilà encore merci à tous ceux qui m'ont aidé et à jmf pour ce lien :D