Tipp 5.2 - Alle Umgebungsvariablen

Wie kann ich alle aktuellen Umgebungsvariablen ermitteln?

Mit dieser Funktion können Sie alle aktuellen Umgebungsvariablen ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function GetEnvSettings( _
                asResult() As String) As Long
  '// -----------------------------------------------------
  '// Methode:   | Alle Umgebungsvariablen ermitteln
  '// -----------------------------------------------------
  '// Parameter: | asResult - Array der ermittelten Werte
  '// -----------------------------------------------------
  '// Rückgabe:  | Anzahl der ermittelten Werte
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  '// Beispiel:
  '// -----------------------------------------------------
  '// Dim asResult()  As String
  '// Dim lCounter    As Long
  '// lCounter = GetEnvSettings(asResult)
  '// If lCounter > 0 Then
  '//     For lCounter = 0 To UBound(asResult) - 1
  '//         Debug.Print asResult(lCounter)
  '//     Next
  '// End If
  '// -----------------------------------------------------
  Dim lIndex      As Long
  Dim lCounter    As Long
  Dim sResult     As String
  Do
    lIndex = lIndex + 1
    sResult = Environ(lIndex)
    If Len(sResult) > 0 Then
      lCounter = lCounter + 1
      ReDim Preserve asResult(lCounter)
      asResult(lCounter - 1) = sResult
    End If
  Loop Until Len(sResult) = 0
  GetEnvSettings = lCounter
 
End Function


Zurück Tipp 5.1 - Alle Schriften ermitteln | Inhalt | Tipp 5.3 - Alle Drucker ermitteln Weiter