Variables d'environnement [Résolu]
Philippe734
Membre Dernière intervention
15 juin 2015
- - Dernière réponse :
Philippe734
Membre Dernière intervention
15 juin 2015
- 4 juil. 2011 à 21:54
- Messages postés
- 309
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Messages postés
- 309
- Date d'inscription
- lundi 16 décembre 2002
- Statut
A voir également:
- Vb6 environ
- Environ vb6 - Meilleures réponses
- Visual basic environ - Meilleures réponses
- Edition de rapport avec Datareport et data Environement MSQL-VB6 (URGENT) ✓ - Forum - Visual Basic 6
- Comparaison entre et vb6 et autre environement ✓ - Forum - Visual Basic 6
- [visual basic] [général] comment exploiter efficacement l'ide vb6 ? - Conseils pratiques - Visual Basic / VB.NET
- [vb6] portées des variables - Conseils pratiques - Visual Basic / VB.NET
- [vb6] accés à une base de données access en ado - Conseils pratiques - Visual Basic / VB.NET
5 réponses
Meilleure réponse
- Messages postés
- 309
- Date d'inscription
- lundi 16 décembre 2002
- Statut
Merci à vous.
En revanche ucfoutu, ta méthode est mauvaise. En effet, si robert à paramétrer ses variables différement de polo, alors ça ne fonctionnera pas. C'est d'ailleurs pour cela que je suis venus poser la question !
ghuysmans99 tu a bien vue, voici la réponse à ma question :
En utilisant la fonction de lecture d'une clé du registre, trouvé dans les snippets (Property Get RegKeyValue...) on trouve :
En revanche ucfoutu, ta méthode est mauvaise. En effet, si robert à paramétrer ses variables différement de polo, alors ça ne fonctionnera pas. C'est d'ailleurs pour cela que je suis venus poser la question !
ghuysmans99 tu a bien vue, voici la réponse à ma question :
En utilisant la fonction de lecture d'une clé du registre, trouvé dans les snippets (Property Get RegKeyValue...) on trouve :
MsgBox "admin : " & RegKeyValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "TEMP") & vbNewLine & _
"user : " & RegKeyValue(HKEY_CURRENT_USER, "Environment", "TEMP"), vbInformation
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
126 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3983
- Date d'inscription
- jeudi 14 juillet 2005
- Statut
- Messages postés
- 3983
- Date d'inscription
- jeudi 14 juillet 2005
- Statut
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
La fonction Environ existe en natif sous VB6.
Teste ceci :
dans chaque message box : une chaîne séparée par un signe =.
Ce qui est devant le signe égal peut être utilisé à la place de l'index.
Exemple :
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
La fonction Environ existe en natif sous VB6.
Teste ceci :
i = 1
toto = "blabla"
Do Until toto = ""
toto = Environ(i)
i = i + 1
MsgBox toto
Loop
dans chaque message box : une chaîne séparée par un signe =.
Ce qui est devant le signe égal peut être utilisé à la place de l'index.
Exemple :
msgbox Environ("username")
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Après, ce n'est qu'une question d'utilisation des chaînes, selon le cas.
On reprend par exemple ton exemple d'obtention de :
C:\Document and Settings\Philippe\Local Settings\Temp\
et voilà alors :
c'est tout.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
On reprend par exemple ton exemple d'obtention de :
C:\Document and Settings\Philippe\Local Settings\Temp\
et voilà alors :
Dim toto, mon_utilisateur As String, titi As String
mon_utilisateur = "Philippe"
toto = Split(Environ("TEMP"), "")
toto(2) = mon_utilisateur
titi = Join(toto, "") & ""
MsgBox titi
c'est tout.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.