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

Signaler
Messages postés
127
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
6 septembre 2019
-
VbNicoG
Messages postés
127
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
6 septembre 2019
-
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

7 réponses

Messages postés
127
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
6 septembre 2019

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
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
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+
Messages postés
127
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
6 septembre 2019

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
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
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+
Messages postés
127
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
6 septembre 2019

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

Je te remercie
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
Bonjour,

Path.GetFullPath(Environment.GetFolderPath(Environment.SpecialFolder.Programs))
te donne le path vers username startmenu programs

pas vers all users

a+
Messages postés
127
Date d'inscription
vendredi 27 juin 2008
Statut
Membre
Dernière intervention
6 septembre 2019

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...