Encore du DOS...dsl !!Résolu

Question

Bonjour a tous,
apres avoir fouiller un peu partout sur la toile,
je ne parviens toujours pas à faire un truc assez simple :

ouvrir ma fenetre des dossiers temporaires. 

je m'explique, je lancais avec shell un .bat contenant
start %temp%
qui m'ouvrait ma fenetre.
Mais je voudrais supprimer mon .bat, et executer directement ma commande
en VB.
j'ai tester :
Shell ("start %temp%")
et plein d'autre truc, aussi avec explorer.exe, mais celui ci m'ouvre Mes Documents...

Si quelqu'un a une idées...
Merci !!

Fabrice

Fabrice518 · Accepted Answer

Encore merci pour vos réponses,

voici la réponse :

Shell ("explorer " & Environ("TEMP")), vbNormalFocus

Avec un pti site en prime sur les varaibles d'environnement...

a+ !!

cs_yvesyves · Answer

Tu dois pouvoir trouver ca avec quelques APIs.

Julien237 · Answer

Salut !
Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" ( _
                     ByVal nBufferLength As Long, _
                     ByVal lpBuffer As String) As Long
'Remplace les Long par des Integer si tu es en .Net

        Dim buf As String = Space(200)
        GetTempPath(200, buf)
        Shell("explorer " & Trim(buf))

Julien.

Fabrice518 · Answer

Merci pour vos réponses,
mais il n'y a pas moyen de passé par les variables d'environnement ? (%temp%)

Sinon, Julient237, je ne comprends rien a ta fonction : space entre autre...
 a+

Fabrice518 · Answer

http://vbcity.com/forums/topic.asp?tid=47474

Julien237 · Answer

Allons-y ligne par ligne :
Ceci : (Au passage tu dois la placer au dessus des procédures tout en haut de ton fichier, contrairement à ce qui suit...)

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" ( _
                     ByVal nBufferLength As Long, _
                     ByVal lpBuffer As String) As Long

Est une déclaration d'Api, celle-ci appartient aux api fournies par microsoft permettant aux programmeurs d'interagir avec Windows, plus précisément, elle remplit la variable lpBuffer (de taille nBufferLength) avec le chemin temporaire windows (que tu recherches).

Cette ligne :
        Dim buf As String = Space(200)

Déclare un String et lui attribue une valeur, mais j'ai fait une erreur je crois. Si je me rappelle bien, en VB6 on ne peut pas attribuer une valeur directement à la déclaration. (Excuse moi je suis habitué au .Net). La syntaxe correcte est donc :
        Dim buf As String
        buf = Space(200)

La fonction Space(n) renvoie une chaine de caractères remplie de n espaces.

Ici j'invoque l'api en indiquant la longueur de ma variable, puis ma variable elle-même :
        GetTempPath(200, buf)

Et enfin j'invoque la fonction shell ouvrant l'explorer avec comme paramètre le chemin que la fonction GetTempPath nous a fournit. La fonction Trim(s) sert à retirer les espaces à droite et à gauche de s.
        Shell("explorer " & Trim(buf))

Excuse moi si j'ai été trop didactique :p

Julien.

Julien237 · Answer

^^ Ha ouais :p
J'avoue c'est plus simple...
Bon allez je vais dormir :p
Bonne nuit !

Julien.

cs_casy · Answer

Sinon tu avait aussi la solution suivante : 

Shell ("cmd /c start %temp%")

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Fabrice518 · Answer

merci pour tes explications  !!

  a+

Encore du DOS...dsl !!

9 réponses

Votre réponse

Discussions similaires