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

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)

Bonjour,
sous VB6, c'est :

MsgBox Environ("ProgramFiles")

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


Au bout de la route, le chemin ...

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

ajoutes pas un "\" systématiquement....

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