récupérer le chemin du dossier d'installation de windowsRésolu

Question

Bonjour à tous, La finalité de ma petite application est de créer un fichier XML. Quand celui-ci est fin prêt, on peut cliquer sur un petit bouton "atteindre le fichier". Il démarre l'explorateur windows avec la commande Shell et en ligne de commande le chemin du fichier qui vient d'être crée. Le petit détail ennuyeux c'est qu'il faut connaître le chemin de cette application. Si "explorer.exe" se trouve toujours à la base du dossier d'installation de Windows (me semble-t-il), le nom de ce dossier varie d'une version de windows à l'autre mais aussi selon la fantaisie de celui qui a installé le PC. Aussi, j'aimerais savoir comment récupérer le chemin du dossier d'installation de windows. J'ai déjà cherché dans l'API, j'ai aussi examiné ma documentation sur l'objet "SysInfo", et google ne semble pas être mon ami . Peut-être ais-je simplement mal cherché... Quelqu'un a-t-il une solution? Merci d'avance

bigfish_le vrai · Accepted Answer

Salut,

il existe une variable d'environement appelé SystemRoot. Je ne sais pas si sont nom est different d'une version de windows a une autre mais je ne pense pas.

En VB6 je crois que cela ce passe de la meme façon qu'en VBA donc pour recupperer le contenu de cette variable

Dim WinRep As String
WinRep = Eviron("SystemRoot")

A+

PCPT · Answer

salut,

exact bigfish
on peut aussi ajouter un $ à environ_ pour avoir une string et non un variant

NB : (certains) environ ne fonctionne(nt) que sous Win2K et +
en dessous (et au dessus) il faudra utiliser l'API GetSystemDirectory

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bigfish_le vrai · Answer

...

j'ai pas percuté mais il me semble que tu n'as pas besoin de connaitre le chemin de l'explorer pour le lancer

En VBA on fait comme suit :

Dim DefaultFolderPath As String
DefaultFolderPath = "c:	emp"
Shell "explorer /e,," & DefaultFolderPath, vbNormalFocus

A+

bigfish_le vrai · Answer

Salut PCPT

PCPT · Answer

salut bigfish ^^

et moi bêtement je ne lis même (presque) pas la question ^^

d'une part oui, SHELL peut lancer "juste" EXPLORER.EXE" sans connaître son chemin
d'autre part ce n'est pas la meilleure méthode
le client peut avoir une autre application pour les XML
explorer va lui lancer iexplorer

il faut donc passer par l'API ShellExecute
avec ce petit snippet :
http://www.codyx.org/snippet_ouvrir-document-lancer-executable_25.aspx#1548

voilou 

ps bigfish : je n'ai pas de "temp" dans mon "c:" 

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

FlorimondH · Answer

ok, merci à vous deux effectivement, je pensais avoir testé sans préciser le chemin et que ça ne fonctionnait pas, mais j'ai cherché midi à 14h! je ne connaissait pas ShellExecute et ça va m'être bien utile aussi^^
bigfish, c'est un détail, mais est ce que tu pourrais juste me préciser à quoi correspondent les deux virgules après le slash e -> Shell "explorer /e,," 
...il n'y a pas d'ordre pour les arguments à ma connaissance...

bigfish_le vrai · Answer

...

il est vrai qu'une seul virgule aurai suffit mais j'ai la mauvaise abitude de les laisser. Pour le reste vois l'explication trouvé ici

A+

FlorimondH · Answer

ok comme ça tout est clair et complet!
merci encore

achills · Answer

'declaration du chemin du windows
dim environ
environ = Environ("windir")

achills · Answer

our lancer explorer.exe
'declaration
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "explorer.exe", "", App.Path, 1
End Sub

cordialement ^^

jmfmarques · Answer

Bonsoir,

Bon...
Moi, pour ouvrir l'explorateur sur un répertoire de mon choix, j'ai la mauvaise (?) habitude de faire ceci :
(ici pour ouivrir l'explorateur sur d:\monoutil

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long



Private Sub Command1_Click()
  WinExec "Explorer.exe d:\monoutil", 10
End Sub

Récupérer le chemin du dossier d'installation de windows

11 réponses

Votre réponse

Discussions similaires