怎么获取WINDOWS环境变量

Question

比如说WIDOWS系统文件夹的变量、TEMP文件夹的变量、还有SYS32的变量。

Answer 1

Debug.Print Environ$("SystemRoot"),Environ$("TEMP")

Answer 2

Private Sub Form_Load()
Me.WindowState = 2
Show
GetAllEnviron
End Sub
Sub GetAllEnviron()
Dim str() As String
Dim x As Integer
Dim Env As String
x = 1
Env = Environ(x)
Do Until Env = ""
Env = Environ(x)
Print Env & vbCrLf
x = x + 1
LoopEnd Sub