Program files et Vista

Signaler
Messages postés
18
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
15 mai 2008
-
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour, qqun aurait-il une idée sur la façon de récupérer la string qui correspond au dossier "program files" ou "programmes" , chemin d'accès au dossier des programmes sur un systeme XP et Vista, je dois tester la présence d'un fichier sous ces deux environnement, je ne vois pas en VB6 comment faire, system n'étant pas un objet.
Merci de votre aide.

Au bout de la route, le chemin ...

5 réponses

Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
37
Salut

echo %programfiles% sur XP et peut etre Vista,

Il est possible que tu ne peux pas ecrire dans le programfiles de VISTA (il faut un jeton administrateur)
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
Bonjour,
sous VB6, c'est :

MsgBox Environ("ProgramFiles")
Messages postés
18
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
15 mai 2008

Merci, c'est cool, ça marche sous XP, je vais le tester sous Vista ....

Au bout de la route, le chemin ...
Messages postés
18
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
15 mai 2008

Bon, c'est ok aussi sous Vista 32, Microsoft assure bien sur le coup ... j'ai un autre problème avec MSagent, je vais ouvrir un nouveau fil, pour la bonne forme ...

fic = Environ("ProgramFiles") & "\MyFolder\MyProg.exe"
 If Dir(fic) <> "" Then
    r = Shell(fic, vbNormalFocus)   ' démarre l'appli
 Else
        r = MsgBox("Option non installée", vbCritical)
 End If

Merci de ton aide jmfmarques.
JP

Au bout de la route, le chemin ...
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
ajoutes pas un "" systématiquement....

testes en fonction de ce que t'a renvoyé Environ$(ProgramFiles")