Funktionen Eviron()

Ja der er mange funktioner af environ. For at faa dem listet i debu vindue proev at smide flg kode i et modul:

Public Function PrintEnvironValues()
   
    Dim i As Integer
    For i = 1 To 9999
        If Len(Trim(Environ(i))) = 0 Then
            Exit For
        Else
            Debug.Print i & " = " & Environ(i)
        End If
    Next i
   
End Function

Environ Function Example
This example uses the Environ function to supply the entry number and length of the PATH statement from the environment-string table. Not available on the Macintosh.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)    ' Get environment
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))    ' Get length.
        Msg = "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1    ' Not PATH entry,
    End If    ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg    ' Display message.
Else
    MsgBox "No PATH environment variable exists."
End If

Environ fortæller kun noget om Windows og PC'en og kan derfor ikke sige noget om hvor databasen ligger. Dertil bruges f.eks. CurrentProject.Path og CurrentProject.Name

Her er listet environ-id'erne:

1            ALLUSERSPROFILE=C:\Documents and Settings\All Users
2            APPDATA=C:\Documents and Settings\Thomas Jepsen\Application Data
3            CLIENTNAME=Console
4            CommonProgramFiles=C:\Programmer\Fælles filer
5            COMPUTERNAME=TJNOTEBOOK
6            ComSpec=C:\WINDOWS\system32\cmd.exe
7            FP_NO_HOST_CHECK=NO
8            HOMEDRIVE=C:
9            HOMEPATH=\Documents and Settings\Thomas Jepsen
10          LOGONSERVER=\\TJNOTEBOOK
11          NUMBER_OF_PROCESSORS=1
12          OS=Windows_NT
13          Path=C:\Programmer\Microsoft Office 97\Office\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Programmer\ATI Technologies\ATI Control Panel;C:\Programmer\Microsoft SQL Server\80\Tools\Binn\
14          PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
15          PROCESSOR_ARCHITECTURE=x86
16          PROCESSOR_IDENTIFIER=x86 Family 6 Model 9 Stepping 5, GenuineIntel
17          PROCESSOR_LEVEL=6
18          PROCESSOR_REVISION=0905
19          ProgramFiles=C:\Programmer
20          SESSIONNAME=Console
21          SystemDrive=C:
22          SystemRoot=C:\WINDOWS
23          TEMP=C:\DOCUME~1\THOMAS~1\LOKALE~1\Temp
24          TMP=C:\DOCUME~1\THOMAS~1\LOKALE~1\Temp
25          USERDOMAIN=TJNOTEBOOK
26          USERNAME=Thomas Jepsen
27          USERPROFILE=C:\Documents and Settings\Thomas Jepsen
28          VS71COMNTOOLS=C:\Programmer\Microsoft Visual Studio .NET 2003\Common7\Tools\
29          WecVersionForRosebud.B8C=2
30          windir=C:\WINDOWS

hov der skulle have staaet debug vinude eller den der ogsaa kaldes immediate i vba-menuen.

thomas -> Det er nok vaerd at naevne at antallet af environ-variable varierer mellem maskiner, operativ systemer, andet installeret software osv.
F.eks kan jeg se at du faar 30 variable, hvorimod jeg "kun" faar 28.

open a dos box and write

SET

and dont forget to press return :o)

Overvældende - tak for de gode svar. Jeg har delt dem lidt mlm de svar jeg bedst kunne bruge.
Tak for hjælpen!

takker :)