VB Environ函数及参数对照

Environ 函数

返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数：

部分	描述
envstring	可选参数。包含一个环境变量名的字符串表达式。
number	可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。

说明

如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。

参数对照：（并非绝对的，在本文最后还有一个测试函数，可以得到本机的系统变量）

 

number	envstring
1	ALLUSERSPROFILE
2	APPDATA
3	CLIENTNAME
4	CommonProgramFiles
5	COMPUTERNAME
6	ComSpec
7	FP_NO_HOST_CHECK
8	HOMEDRIVE
9	HOMEPATH
10	LOGONSERVER
11	NUMBER_OF_PROCESSORS
12	OS
13	Path
14	PATHEXT
15	PROCESSOR_ARCHITECTURE
16	PROCESSOR_IDENTIFIER
17	PROCESSOR_LEVEL
18	PROCESSOR_REVISION
19	ProgramFiles
20	SESSIONNAME
21	SystemDrive
22	SystemRoot
23	TEMP
24	TMP
25	USERDOMAIN
26	USERNAME
27	USERPROFILE
28	windir

 

通过此代码可以，得到本机的所有环境变量：

Private   Sub  Command1_Click()
Dim  x  As   Integer
Dim  Env  As   String
x  =   1
Env  =   Environ (x)
Do   Until  Env  =   ""
    Env  =   Environ (x)
    Debug.Print Env
    x  =  x  +   1
Loop
End Sub