If you copy and paste this code snippet, you will see in the immediate window the full list of parameter to use and what they return.
One of the most useful are
USERNAME
APPDATA
CommonProgramFiles
Public Sub EnvironParameters() Dim nCount As Integer nCount = 0 nCount = nCount + 1 Do Until Environ(nCount) = "" Debug.Print Environ(nCount) nCount = nCount + 1 Loop End Sub
This is the complete list of parameters
ALLUSERSPROFILE
APPDATA
CommonProgramFiles
COMPUTERNAME
ComSpec
FP_NO_HOST_CHECK
HOMEDRIVE
HOMEPATH
HOMESHARE
LOGONSERVER
NUMBER_OF_PROCESSORS
OS
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramFiles
PSModulePath
SESSIONNAME
SystemDrive
SystemRoot
TEMP
TMP
TNS_ADMIN
UATDATA
USERDNSDOMAIN
USERDOMAIN
USERNAME
USERPROFILE
VS90COMNTOOLS
WecVersionForRosebud.224
windir
No comments:
Post a Comment