Comment lire des variables d'environnement en vb6

Instructions

1. Créez un nouveau projet Visual Basic EXE standard. Un formulaire nommé "Form1" est créé par défaut.

2. Déclarer des variables locales dans le "Form1" événement de chargement. Vous aurez besoin d'un nombre entier, un booléen et une chaîne pour maintenir la valeur de la variable d'environnement.

   Dim i as Integer

   Dim bFound as Boolean

   Dim sEnvValue as String

3. 
   
   
   

   Met le "Je" variable égale à un. Ensuite, lisez la variable d'environnement à la position un dans l'indice et le stocker dans "sEnvValue."

   sEnvValue = Environ (i)

4. Boucle à travers toutes les variables d'environnement jusqu'à ce que vous trouviez celui que vous recherchez. Pour ce faire, avec un "Tandis que" déclaration. Ce code définit "bFound" à vrai si le "PATH" variable d'environnement se trouve.

   Bien que non bFound ET sEnvValue lt; gt; ""

   
   
   
   
   

   Si Ucase (Gauche (sEnvValue, 5)) = "PATH =" Puis

    bFound = True

   Autre

    i = i + 1
   sEnvValue = Environ (i)

   End If

   Wend

   Le "Ucase" convertis de fonction "sEnvValue" en majuscules parce que la comparaison est sensible à la casse. Si "PATH" on ne trouve pas, lisez la prochaine variable d'environnement jusqu'à ce que nous les avons tous lu.

5. Vérifiez la valeur de "bFound" pour déterminer les mesures à effectuer suivant. Nous avons maintenant la valeur de la "PATH" variable d'environnement situé dans "sEnvValue" et peut l'analyser, afficher, insérer dans une table, l'écrire dans un fichier ou d'autres actions que vous prendriez normalement avec une variable de chaîne.