Discussion :

[sigmund fred]

Bonjour,
Quelqu'un saurait-il s'il est possible de définir ou modifier une variable d'environnement en VB6
Merci d'avance

[zazaraignée]

salut

Environ Function


Returns the String associated with an operating system environment variable.

Syntax

Environ({envstring | number})

The Environ function syntax has thesenamed arguments:

Part Description
envstring Optional.String expression containing the name of an environment variable.
number Optional.Numeric expression corresponding to the numeric order of the environment string in the environment-string table. The numberargument can be any numeric expression, but is rounded to a whole number before it is evaluated.


Remarks

If envstring can't be found in the environment-string table, a zero-length string ("") is returned. Otherwise, Environ returns the text assigned to the specified envstring; that is, the text following the equal sign (=) in the environment-string table for that environment variable.

If you specify number, the string occupying that numeric position in the environment-string table is returned. In this case, Environ returns all of the text, including envstring. If there is no environment string in the specified position, Environ returns a zero-length string.

[leroissejp]

Bonjour,
Un exemple de MSDN.
Cet exemple utilise la fonction Environ pour fournir le numéro d'entrée et la longueur de l'instruction PATH de la table des chaînes d'environnement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Command1_Click()
Dim EnvString, Indx, Msg, PathLen   ' Déclare les variables.
Indx = 1   ' Initialise l'index à 1.
Do
   EnvString = Environ(Indx)   ' Extrait la variable
                              ' d'environnement.
   If Left(EnvString, 5) = "PATH=" Then   ' Vérifie l'entrée PATH.
      PathLen = Len(Environ("PATH"))   ' Extrait la longueur.
      Msg = "Entrée PATH = " & Indx & " et longueur = " & PathLen
      Exit Do
   Else
      Indx = Indx + 1   ' Pas d'entrée PATH,
   End If   ' donc incrémente.
Loop Until EnvString = ""
If PathLen > 0 Then
   MsgBox Msg   ' Affiche le message.
Else
   MsgBox " Il n'existe pas de variable d'environnement PATH."
End If
End Sub

jpleroisse

[sigmund fred]

La fonction 'Environ' me permet seulement de lire une variable d'environnement déja définie. Je voulais savoir s'il était possible soit d'en définir une avec du code VB sinon d'en modifier une existante toujours avec du code VB (un peu comme la fonction C setenv).