IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA-E] Repertoire temporary internet files


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 932
    Par défaut
    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??)

  2. #2
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    Frappes DIR/? et lis tout...

  3. #3
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    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:
    Pour voir la page suivante, tape [Espace] et pour arrêter, Ctrl + C.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  4. #4
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    Citation Envoyé par jmfmarques
    Frappes DIR/? et lis tout...de l'utilisation de DIR

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 932
    Par défaut
    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?

  6. #6
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Citation Envoyé par AlainTech
    La barre verticale est le caractère "barre verticale" et pas un I majuscule, ni un L minuscule.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  7. #7
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    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)?
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  8. #8
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 932
    Par défaut
    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

  9. #9
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 932
    Par défaut
    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 ?

  10. #10
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    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
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  11. #11
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 932
    Par défaut
    Ah, merci bien alain !
    je verrai ca mardi

    Bon week end à tous

  12. #12
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 932
    Par défaut
    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...

  13. #13
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    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 !

  14. #14
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 932
    Par défaut
    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

  15. #15
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    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 !)

+ Répondre à la discussion
Cette discussion est résolue.
Page 2 sur 2 PremièrePremière 12

Discussions similaires

  1. Lister Temporary Internet Files
    Par megapacman dans le forum Général VBA
    Réponses: 5
    Dernier message: 24/01/2007, 10h20
  2. Dossier temporary internet files sous Mac?
    Par keishah dans le forum Dépannage et Assistance
    Réponses: 6
    Dernier message: 06/09/2006, 21h57
  3. Temporary internet Files
    Par faressam dans le forum Autres Logiciels
    Réponses: 6
    Dernier message: 24/07/2006, 20h33
  4. Répertoire Temporary Internet Files pas reconnu par Dir
    Par Cupidon dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 09/11/2005, 11h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo