Environ Functie.

Als VBA ontwikkelaar moet men soms van de eindgebruiker de computer-naam, of de gebruikersnaam, of het pad van de Windows map, tijdelijke (temp) map enz. De Environ functie is daartoe zeer geschikt. De functie neemt een string parameter, vb voor de gebruikersnaam : Environ("USERNAME").
Een overzicht van alle mogelijke parameters kan via de volgende functie verkrijgen:

Public Function GeefLijstEnvironVariabelen() As String
    Dim intI As Integer
    Dim strVariabelen As String
    intI = 1
        Do Until Environ(intI) = vbNullString
            strVariabelen = strVariabelen & intI & "-" & Environ(intI) & vbCrLf
            intI = intI + 1
        Loop
    GeefLijstEnvironVariabelen = strVariabelen
End Function

Hier een staal van mogelijke variabelen.

Een aantal voorbeelden.

Public Function GeefProgramFilesMap() As String
        Dim strResultaat As String

        strResultaat = Environ("ProgramFiles")

        GeefProgramFilesMap = strResultaat
End Function
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Public Function GeefGebruikersNaam() As String
        Dim strResultaat  As String

        strResultaat = Environ("USERNAME")

        GeefGebruikersNaam = strResultaat
End Function
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Public Function GeefGebruikersProfiel() As String
        Dim strResultaat As String

        strResultaat = Environ("USERPROFILE")

        GeefGebruikersProfiel = strResultaat
End Function
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Public Function GeefComputerNaam() As String
        Dim strResultaat As String

        strResultaat = Environ("COMPUTERNAME")

        GeefComputerNaam = strResultaat
End Function
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Public Function GeefMijnDocumentenMap() As String
        Dim strResultaat As String

        strResultaat = Environ("USERPROFILE") & "\My Documents"

        GeefMijnDocumentenMap = strResultaat
End Function