Jdi na obsah Jdi na menu
 


Konstanty pro funkci ENVIRON

4. 1. 2010

Tato funkce se mnohokrát hodí pro zjištění cesty k TEMP adresáři, napadlo mě podívat se jaké jsou další konstanty. Tabulku včetně navratových popisků pro můj PC a můj virtuální stroj můžete vidět níže. Pro každý systém se některé konstanty můžou lišit - chybět/nadbývat, ale cca 80% je shodných.

 

Konstanty pro funkci ENVIRON

 

 Environ(ALLUSERSPROFILE) Cesta ke složce AllUser
 Environ(APPDATA) Cesta ke složce Application Data
 Environ(CITY) Pokud je specifikovano umístění, vrátí jeho hodnotu
 Environ(CLIENTNAME) Na virtuální stroji vrací text "Console"
 Environ(CommonProgramFiles) Cesta ke složce Program Files
 Environ(COMPUTERNAME) Vráti jméno PC
 Environ(ComSpec) Vráti cestu k spuštění příkazového řádku
 Environ(DEPT) ???
 Environ(FP_NO_HOST_CHECK) ???
 Environ(HOMEDRIVE) Písmeno "domáciho" adresáře. Většinou písmeno "C:"
 Environ(HOMEPATH) Cesta k "domácimu" adresáři. Většinou disk "C:" nebo vráti cestu k admin účtu
 Environ(LOGIN_CONTEXT) Pokud je počítač pod servrem vrací celé jméno
 Environ(LOGONSERVER) Vrací jméno pod kterým je PC zalogován
 Environ(MAC) Číslo MAC karty
 Environ(MACID) ID MAC karty
 Environ(NUMBER_OF_PROCESSORS) Počet procesorů v PC
 Environ(OS) Typ OS
 Environ(Path) Vrací cesty k instalačním složkám Office, Windows a SQL serveru
 Environ(PATHEXT) Vrací koncovky spustitelných programů (.EXE, .BAT atd.)
 Environ(PROCESSOR_ARCHITECTURE) Typ procesoru
 Environ(PROCESSOR_IDENTIFIER) Info o procesoru
 Environ(PROCESSOR_LEVEL) Info o procesoru
 Environ(PROCESSOR_REVISION) Info o procesoru
 Environ(ProgramFiles) Cesta k Program Files
 Environ(SERVER) Jméno serveru
 Environ(SESSIONNAME) Jméno serveru, pro virtuální stroje vrací "CONSOLE"
 Environ(SystemDrive) Jméno disku s instalovaným systemem
 Environ(SystemRoot) Výchozí adresář kde je naistalován systém
 Environ(TEMP) Cesta k adresáři TEMP
 Environ(TMP) Cesta k adresáři TEMP
 Environ(USERDOMAIN) Většinou odpovídá konstantě COMPUTERNAME
 Environ(USERNAME) Jméno uživatele
 Environ(USERPROFILE) Cesta do adresáře s uživatelským nastavením
 Environ(USER_ID) Jméno uživatele  (většinou)
 Environ(VS90COMNTOOLS) Cesta do adresáře s nastroji pro Visual Studio
 Environ(windir) Adresář pro systém WINDOWS
 Environ(WINDOWS_LOGIN) ???
A některé další specifické pro každý systém
 Environ(NWLANGUAGE) ???
 Environ(NWUSERNAME) ???
 Environ(J2D_D3D) ???
 Environ(WecVersionForRosebud.67C) ???


 

Kód pro zjištění všech konstat funkce ENVIRON

'********************************************************************************
'TestEnvironFunction
'
' Purpose:  Testovaci procedura pro funkci ENVIRON.
'           Vypise do listu veskere pripustne hodnoty pro dany PC
'
' Inputs:   -none-
'
' Outputs:  -none-
'
' Created:  01/05/2010  Premysl Lazecky
'
' Modified: .
'
'********************************************************************************
Sub TestEnvironFunction()
    
    Dim i           As Integer
    Dim strConst    As String
    Dim intPosEqu   As Integer
    
    Cells.ClearContents
    Cells(1, "A").Value = "Konstanta pro funkci"
    Cells(1, "B").Value = "Zapis funkce"
    Cells(1, "C").Value = "Navratova hodnota"
    
    For i = 1 To 255
        strConst = Environ$(i)
        intPosEqu = InStr(1, strConst, "=")
        If intPosEqu > 0 Then
            Cells(i + 1, "A").Value = Mid(String:=strConst, Start:=1, Length:=intPosEqu - 1)
            Cells(i + 1, "B").Value = "ENVIRON(" & Cells(i + 1, "A").Value & ")"
            Cells(i + 1, "C").Value = Mid(String:=strConst, Start:=intPosEqu + 1)
        End If
    Next i
    
    Columns.AutoFit
End Sub

 

Komentáře

Přidat komentář

Přehled komentářů

Makro

(Bath, 18. 5. 2010 17:45)

Moc pěkné makro, děkuji.

 

 

 

Z DALŠÍCH WEBŮ

REKLAMA