这样获取的环境变量字符串由三部分组成:等号、等号前面的变量名、等号后面的变量值。例如:
ALLUSERSPROFILE=H:\Documents and Settings\All Users
也可以用指定变量名的方法来获取变量值,这也是编程中最常用的方法。例如:
st = Environ("ALLUSERSPROFILE")
下面是一个获取全部环境变量的代码例子:
Private Sub Form_Load()
For i = 1 To 30 '如果操作系统是Windows 7请把循环终值改为31
Debug.Print "【" & Right("0" & i, 2) & "】" & Environ(i)
Next
End Sub
但 Windows 7 的环境变量与 Windows XP/2003 的有些不同,除了数量不同外,有的变量名不同,有的是变量名虽然相同,但变量值不同,这样,我们在代码中引用 Environ 函数时就要注意了,以免不但达不到我们的预期目的,反而还造成不必要的损失。
下面把 XP 与 Win7 默认的环境变量全部分别列出,以方便大家鉴别。