[VBA-E] Repertoire temporary internet files

Version imprimable

Voir 40 message(s) de cette discussion en une page

coucou,

je cherche à supprimer un fichier qui se trouve dans temporary internet files. J'ai testé kill("chemin\nomfichier") mais ca me met fichier introuvable donc apres une recherche sur le forum jai trouvé la fonction ci-dessous. J'ai vu que pour ce dossier le numero etait 32 (au passage si quelqu'un peut me dire à quoi le numero correspond? :))
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" _ (ByVal hwndOwner As Long, ByVal lpszPath As String, _ ByVal nFolder As Long, ByVal fCreate As Long) As Long Public Function GetSpecialFolderPath(dossier As Long, hwnd As Long) Dim buffer As String buffer = Space(256) SHGetSpecialFolderPath hwnd, buffer, dossier, 0 GetSpecialFolderPath = Left(buffer, InStr(buffer, Chr(0)) - 1) End Function Private Sub Form_Load() MsgBox GetSpecialFolderPath(32, Me.hwnd) End Sub
Je l'ai mis seul dans un module et j'ai une erreur : Utilisation incorrecte du mot clé "Me"

Je sais que Me est utilisé (je ne l'ai rencontré qu'en vba-a) pour eviter de retaper le nom d'un fomulaire mais sous excel j'avoue ne pas trop comprendre comment je dois faire...

Je dois créer un formulaire avec un champs hwnd ?? :? si oui, comment et que dois-je mettre dans ce champs ? :(

13/04/2006, 09h34
jmfmarques

Citation:

Je l'ai mis seul dans un module

Dans ton module, Me (qui veut dire la "Form" active, n'est pas reconnu.

Si une fonction de ton module se réfère à la Form en cours, il faut que tu lui passes un paramètre (toto as form, par exemple) et (que Me soit inclus dans l'appel de cette fonction, depuis ta "Form" :lol:
ensuite, tout se qui se rapporterait à Me.ce_que_tu_veux doit donc s'écrire toto.ce_que_tu_veux
13/04/2006, 09h47
Elstak
Doh ! (j'ai pas tout compris de ta réponse)

Tu veux dire quoi par Form active? (meme par Form ?:?)

Il faut que je crée une autre fonction dans le module pour avoir le nom du dossier ??

Pour moi c etait celle-ci qui etait censée renvoyer le résultat
Code:

1 2 3 Private Sub Form_Load() MsgBox GetSpecialFolderPath(32, Me.hwnd) End Sub
Pourrais-tu me montrer un exemple (un ptit morceau de code :help: que ca me parraisse plus concret)

(Que doit valoir par exemple me.hwnd?, peut-on le remplacer directement par cette valeur?)

Merci d'avance

Citation:

Private Sub Form_Load()
MsgBox GetSpecialFolderPath(32, Me.hwnd)
End Sub

ceci ne peut s'écrire dans un module !
Forcément dans ta Form :
Pour être tout-à-fait clair :
dans le code de ta FORM :

Code:

1
2
3
Private Sub Form_Load() 
    MsgBox GetSpecialFolderPath(32, Me.hwnd) 
End Sub

et dans ton module .bas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" _
                                                (ByVal hwndOwner As Long, ByVal lpszPath As String, _
                                                 ByVal nFolder As Long, ByVal fCreate As Long) As Long
 
Public Function GetSpecialFolderPath(dossier As Long, hwnd As Long)
 
    Dim buffer As String
 
    buffer = Space(256)
    SHGetSpecialFolderPath hwnd, buffer, dossier, 0
    GetSpecialFolderPath = Left(buffer, InStr(buffer, Chr(0)) - 1)
 
End Function

le paramètre ainsi passé est ici le handle de Me :lol:

13/04/2006, 10h03
Elstak
Ok merci, c'est déjà un peu plus clair ! :)

Mais (c'est surement tres con, mais je n'ai jamais vu Form :oops: ) comment puis je ecrire mon code dans form? Car si j'ai bien compris je ne dois pas écrire le code suivant
Code:

1 2 3 Private Sub Form_Load() MsgBox GetSpecialFolderPath(32, Me.hwnd) End Sub
avec le reste qui, lui, doit se trouver dans le module.

Citation:

Envoyé par jmf

et dans ton module .bas :

.bas? :(

Enfin (je suis plus à ca pres),

Citation:

Envoyé par jmf

le paramètre ainsi passé est ici le handle de Me

le handle de Me ? :oops: :oops:

Désolé si t'as l'impression que je te fais perdre du temps mais là, moi je nage

PS : j'ai essayé de voir pour creer un form avec une recherche sur le forum mais sans succes :(
13/04/2006, 10h14
jmfmarques

Houla !
1) Me.hwnd est le handle de me (voir hwnd et handle dans aide en ligne)
2) Je vois que tu es sous VBA (Form est, je crois UserForm sous ce truc là)
3) oublies le .bas et ne penses qu'à module
4) je te conseille d'utiliser l'événement activate plutôt que l'événement load (tout n'est pas toujours chargé et le Me n'est pas encore forcément défini)
5) fais un minimum d'effort pour adapter à VBA (tout est évident là-dedans !)
:lol:
13/04/2006, 10h21
Elstak

Ah ok :D

Tout ce que tu me dit est surement en VB? :?
enfin oui le userform je l'ai deja "apercu" et encore c'est un bien grand mot !

Voilà alors je vais essayer de voir comment ca marche, mais avant tout une derniere question (peut etre encore bete :D ), au final, j'aurais comme résultat le chemin du répertoire temporary internet files c'est bien ca? alors pourquoi faut-il faire tout ca? je veux dire, ce n'est pas toujours le meme chemin (à part peut etre la lettre de la partition :P) pour un systeme d'exploitation (widows xp au hasard :lol:) ?

(Au passage ce que t'apelle l'aide en ligne, c'est la recherche avancee sur le forum?)
13/04/2006, 11h26
jmfmarques

Me voilà de retour après un café pris, comme tous les matins, attablé à une brasserie "sympa". Aujourd'hui, toutefois, à cause de toi, je n'en ai pas beaucoup profité. Je ne cessais de grommeler, ayant découvert que tu copiais-collais, sans même chercher à savoir .... "Grr... c'est pas bon...réveilles-toi ..."

Citation:

alors pourquoi faut-il faire tout ca? je veux dire, ce n'est pas toujours le meme chemin

si ton appli est destinée à ta seule machine, tu peux bien évidemment mettre en dur le chemin de ce fichier. Si au contraire, tu as l'intention de la distribuer, ce chemin peut être différent d'une machine à l'autre (y compris en raison de caprices de l'utilisateur final). La fonction que tu veux utiliser, qui va chercher ce chemin, quel que soit son nom, te met à l'abri de ces mésaventures !
Alors Elstak, si tu veux me faire plaisir, maintenant : ouvres l'aide en ligne de VBA, vois ce que sont les userforms et tutti quanti... et apprends à t'en servir. Commences par des choses simples... Tu ne regretteras rien des découvertes très intéressantes que tu feras, promis !... :wink:
13/04/2006, 11h39
Elstak

Ohhh fallait pas te depecher de boire ton café pour moi ! ;)

Pour info, si je cherche à savoir (mais là y me manquait trop d'info pour comprendre directement, comme : qu'estce qu'un userform ( :oops: )) :p

Sinon, jessaye de voir là en ce moment comment utiliser des userform mais bon :vomi: , c'est pas si simple :roll: .

Sinon (encore :)), imaginons que je n'y arrive pas et que je veuille mettre le nom en dur, j'ai essayé de faire un kill("D:\document blablabla\temporary internet files\Nomfichier"), le chemin est bon je l'ai affiché avant dans un msgbox mais j'ai une erreur : fichier introuvable. J'ai donc testé de mettre Nomfichier.txt car il s'agit d'un fichier texte (toujouts ces sacrés fichier bizarres qui ont des espace et retour charriot partout ;)) mais le probleme est le meme. Une petite idée pour ca ?

bonjour

tu peux tester cette macro pour recuperer le chemin du dossier "temporary Internet files"
Code:

1 2 3 4 5 6 7 8 Const Cible = &H20 Dim objShell As Object, objFolder As Object, objFolderItem As Object Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(Cible) Set objFolderItem = objFolder.Self MsgBox objFolderItem.Path
bonne journée
michel

13/04/2006, 11h47
jmfmarques

Elstak !
Je n'irai pas plus loin tant que
-1) tu n'auras pas ouvert l'aide en ligne pour voir ce que peut "tuer" un Kill.
-2) tu n'auras pas ouvert ton explorateur pour voir si ce que tu veux Vider correspond à quelquechose que tu peux "zigouiller" par un Kill. :twisted:
Ce n'est qu'après celà que je te guiderai vers ce qu'il faut lire ensuite pour faire ce que tu veux faire ! :wink:

:oops: Okok je vais aller voir ca, c'est juste que tu laissais sous entendre que cetait faisable en dur (et je savais pas que l'on ne pouvait pas tout kill !)

Citation:

Envoyé par jmf

si ton appli est destinée à ta seule machine, tu peux bien évidemment mettre en dur le chemin de ce fichier

:twisted:

Sinon silky ton petit code fonctionne bien merci !! :)
Mais bon je ne comprend aucune des lignes :oops:

J'ai créé une fonction qui renvoit le chemin
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Function Recup() As String Const Cible = &H20 Dim objShell As Object, objFolder As Object, objFolderItem As Object Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(Cible) Set objFolderItem = objFolder.Self Recup = objFolderItem.Path End Function
Pourrais-tu commenter un peu les lignes? (les 4 ci-dessous)
Code:

1 2 3 4 Const Cible = &H20 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(Cible) Set objFolderItem = objFolder.Self
Merci d'avance :wink: je pars voir comment kill un fichier qui se trouve dans temporary internet files ! :P

13/04/2006, 13h09
Elstak

C'est encore moi !
Et bien apres quelques recherche dans l'aide VBA et sur :google2: , je n'ai trouvé que ca d'interessant :

Citation:

Syntaxe

Kill pathname

L'argument pathname est une expression de chaîne indiquant le nom d'un ou plusieurs fichiers à supprimer. L'argument pathname peut préciser le répertoire ou le dossier et le lecteur.

blablabla.... enfin ca provient de l'aide et sur goolge j'ai rien trouvé d'interessant.

De meme pour hwnd, c'est inconnu dans l'aide :roll: (de toute facon là je n'ai plus enormement besoin de ca je pense car j'ai, grace à silky, le code pour trouver le repertoier temporary internet files).

maintenant mon objectif est de supprimer un fichier se trouvant à l'interieur. comme apparement Kill ne convient pas, je me sui demandé si ce n'etait pas faisable sous dos mais en parcourant les dossier pour arriver à temporary internet files, une fois que je suis dans Local settings, lorsque je fais un dir, ce dossier n'apparait pas. J'ai egalement tenté de faire "dir temporary internet files" mais il me dit que ca n'existe pas. :(
13/04/2006, 13h25
AlainTech

Re: [VBA-E] Repertoire temporary internet files

Citation:

Envoyé par Elstak

J'ai testé kill("chemin\nomfichier") mais ca me met fichier introuvable

Plutôt que de changer de direction à la première difficulté, il eût mieux valu de chercher sur cette erreur-là.

Il existe, en VB, une fonction pour supprimer un fichier. Si, en l'utilisant, tu reçois une erreur, c'est sur la cause de l'erreur qu'il faut chercher et pas aller chercher d'autres fonctions.
13/04/2006, 13h25
jmfmarques

coucou Elstak !
et.... tu crois que DOS arrive à gérer plus de 8 caractères ? :lol:
je me repose un peu et viens t'aider ensuite ! :lol:
13/04/2006, 13h34
AlainTech

Citation:

Envoyé par jmfmarques

et.... tu crois que DOS arrive à gérer plus de 8 caractères ?

Si, si.

En tout cas, la "fenêtre" DOS sous Windows.

Pour info, mets-toi à la racine du disque système et tape:
cd doc puis une tabulation.

C'est magique, comme en Linux.
13/04/2006, 13h54
Elstak

Oui j'arrive à aller dans le dossier local settings sous dos donc c'est sur :D

Bon alors suivant vos conseils je vais me remettre en route pour chercher l'erreur du Kill mais ca commence legerement à m'ennerver :furieux:

Citation:

Envoyé par Alain

Il existe, en VB, une fonction pour supprimer un fichier.

On parle bien de Kill là?

En fait je localise surement mal le probleme. :roll:
L'erreur que j'ai me dit que le fichier n'existe pas, hors le repertoire est le bon et le nom du fichier aussi :arf:

Donc je ne sais pas trop par où aller, mais d'apres toi Alain c'est sur que Kill peut me detruire le fichier??
13/04/2006, 14h15
AlainTech

Citation:

Envoyé par Elstak

mais d'apres toi Alain c'est sur que Kill peut me detruire le fichier??

Pour autant que ce fichier puisse être supprimé.

As-tu essayé la petite astuce que je donne plus haut?

Ouvrir une DOS Box.
Faire des CD jusqu'à arriver dans le bon répertoire.
Puis faire DEL LeNomDeTonFichierTexte

Si tu ne reçois aucun message d'erreur c'est que le fichier peut être supprimé.

Autre piste possible:
Sous VB(A), fair un dir du fichier.
S'il est présent, essayer de le supprimer mais, s'il n'est pas présent, il faut chercher pourquoi.
13/04/2006, 14h40
Elstak

Alors, Ouvrir une Dos box? :oops:
Est ce que taper cmd dans demarrer/executer ne revient pas au meme?

Si oui,
mon fichier à ce chemin là D:\Documents and Settings\jo\Local Settings\Temporary Internet Files\nom

Mais en tapant des dir comme je l'ai deja dit, une fois arrivé dans "local settings" je ne voit pas "temporary internet files" :(

En ce qui concerne la suppression du fichier, si je peux le supprimer manuellement, il peut etre supprimable par du code non?

(PS : j'ai testé de faire dir(chemin\fichier) ca me renvoit une chaine null, le probleme n'apparait que pour ce dossier, si je creer un fichier ou que je copie mon fichier à partir de temporary internet files et que je le colle ailleurs, il se supprime mais son nom change quand je le colle... EXPL.C24.LMDV.RSPC.LPUSRVCH[1].G0013V00 alors que son nom d'origine (nom qu'il a quand je le telecharge) et son nom affiché dans temporary internet files est : EXPL.C24.LMDV.RSPC.LPUSRVCH.G0013V00 sans le [1])
13/04/2006, 15h49
AlainTech

Citation:

Envoyé par Elstak

Alors, Ouvrir une Dos box? :oops:
Est ce que taper cmd dans demarrer/executer ne revient pas au meme?

C'est exactement ça.

Citation:

Envoyé par Elstak

Mais en tapant des dir comme je l'ai deja dit, une fois arrivé dans "local settings" je ne voit pas "temporary internet files" :(

Fais comme j'ai dit, quand tu es dans "local settings", tape CD [Espace] tempor, puis la touche Tabulation (à gauche du A sur un clavier AZERTY).

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 10h32.