Accéder à C:\Documents and Settings\All Users\Menu Démarrer\ProgrammesRésolu

Question

Bonjour à tous,

J'aimerais accéder au dossier C:\Documents and Settings\All Users\Menu Démarrer\Programmes sur PC toutes langues.
Existe t'il une variable d'environnement qui connaît ce chemin ?
Voilà ce que je fais pour le moment :
Environment.GetEnvironmentVariable("ALLUSERSPROFILE") mais ALLUSERSPROFILE mène à C:\Documents and Settings\All Users seulement.
Des idées ?

Merci

VbNicoG · Accepted Answer

Sinon, c'est pas terrible mais je peux faire comme ça :
s2 = Environment.GetFolderPath(Environment.SpecialFolder.Programs)
s3 = s2.Replace(Environment.UserName, "All Users")

Si quelqu'un a mieux je suis preneur

Merci

gillardg · Answer

Bonjour,

puisque tu as déja cela c'est un bon début 




path1= Environment.GetEnvironmentVariable("ALLUSERSPROFILE")


maintenant utilise   path2=IO.Path.GetDirectoryName(Environment.GetFolderPath(Environment.SpecialFolder.StartMenu))

ainsi tu auras le nom du répertoire "startMenu"

ensuite 
IO.Path.Combine(path1, path2)

a+

VbNicoG · Answer

Impeccable!!
je peux même y accéder directement : Path.GetFullPath(Environment.GetFolderPath(Environment.SpecialFolder.Programs)) 

Je te remercie

gillardg · Answer

Bonjour,

Path.GetFullPath(Environment.GetFolderPath(Environment.SpecialFolder.Programs)) 
te donne le path vers username startmenu programs

pas vers all users 

a+

VbNicoG · Answer

Exact, je m'en suis rendu compte, mais le fait de combiner ne marche pas non plus! Le résultat de la combinaison renvoie le dossier du username et pas allusers.
Du coup, ce n'est pas encore résolu....
je cherche...si tu trouves...

gillardg · Answer

Bonjour,

Dim path1, path2 
As
String

Dim isp() 
As
Stringpath1 = Environment.GetEnvironmentVariable(

"ALLUSERSPROFILE")path2 = IO.Path.GetFullPath(Environment.GetFolderPath(Environment.SpecialFolder.StartMenu))

isp = path2.Split(

"")path2 = isp(isp.GetUpperBound(0))

MsgBox(IO.Path.Combine(path1, path2))

a+

VbNicoG · Answer

Oui, ou encore
Dim path as string 
Dim WSHShell as object
WSHShell = CreateObject("Wscript.Shell")
path = WSHShell.SpecialFolders("AllUsersPrograms")

Bref, plein de façons de le faire...Merci bien gillardg

Accéder à C:\Documents and Settings\All Users\Menu Démarrer\Programmes

7 réponses

Votre réponse

Discussions similaires