Trouver un chemin avec "Environment.SpecialFolder.ProgramFiles"

On va dire que tout est dans le titre ...

Je n'arrive pas a utiliser cette syntaxe :

Code:

---

Environment.SpecialFolder.ProgramFiles

---

Je cherche a faire en sorte que mon programme trouve tout seul le chemin du dossier des Programmes, quelque soit la version de Windows, 32 ou 64 bits.

J'ai essayé en faisant ça :

Code:

---

1 2	chemin = Environment.SpecialFolder.ProgramFiles & "\mon chemin\app.exe" Shell(chemin)

---

Mais il ne trouve pas le fichier ...

J'ai vu aussi que cette fonction existait aussi :

Code:

---

Environment.SpecialFolder.ProgramFilesX86

---

Donc est-ce que je devrait prévoir ce chemin aussi ? :/

Franchement je suis perdu là.

Avant j'utilisais :

Code:

---

1 2 3 4 5 6 7

If File.Exists("c:\program files\mon chemin\app.exe") Then chemin = "C:\Program Files\mon chemin\" ElseIf File.Exists("c:\program files (x86)\mon chemin\app.exe") Then chemin = "C:\Program Files (x86)\mon chemin\" Else chemin = "no" End If

---

Cela fonctionnais assez bien mais avec les différents noms de disques durs etc ... Enfin la galère quoi :/

Voilà, j'espère avoir bien exposé mon problème.

Merci.

Citation:

---

il ne trouve pas le fichier

---

L'idéal dans ce cas est toujours de mettre un point d'arrêt et vérifier ce que tu lui demandes d'aller chercher comme fichier.
Poses un point d'arrêt sur Shell(chemin), et vérifies ce que vaut ton chemin.

Environment.SpecialFolder.ProgramFiles ne renvoie pas le chemin directement, c'est simplement un identifiant prédéfini (un CSIDL pour être exact) qui permet au système de déterminer le chemin. Il faut utiliser GetFolderPath pour obtenir le chemin proprement dit :

Code:

---

chemin = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mon chemin\app.exe"

---

D'autre part, il vaut mieux utiliser Path.Combine plutôt qu'une concaténation, parce que tu ne sais pas si le chemin renvoyé par GetFolderPath aura déjà un "\" à la fin :

Code:

---

1 2	Dim programFiles = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) chemin = Path.Combine(programFiles, "mon chemin\app.exe")

---