Discussion :

[johann77]

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

Je n'arrive pas a utiliser cette syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Environment.SpecialFolder.ProgramFilesX86

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

Franchement je suis perdu là.

Avant j'utilisais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[asmduty]

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.

[tomlev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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