Variables d\'environnement

[mooneck]

Bonjour à tous

 

Voici un bout de code qui permet de connaitre toutes les variables d'environnement.

 

 

 
Do
       Indx = Indx + 1
       EnvString = Environ(Indx)
'
'        Permet d'écrire la variable dans un fichier si vous le souhaitez
        f.WriteLine Indx & " : " & EnvString
'
'        On peux afficher le résultat dans une textbox
        MaForm.TexTBox_ListeVariable.Value = MaForm.TexTBox_ListeVar.Value & _
        EnvString & Chr(13)
'
       Debug.print  Indx & " : " & EnvString
Loop Until EnvString = ""

 

c'est pratique quand on veut conaitre le répertoire TEMP (c:\temp) par exemple :

 

 MsgBox Environ("TEMP")

 

j'ai pu en optenir ainsi 55.

 

 

@ + Mooneck

 

 

[Edité le 17/8/2005 par mooneck]