7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jerrycui 2004-06-09
- 打赏
- 举报
谢谢！
yinweihong 2004-06-09
- 打赏
- 举报
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
Loop
End Sub
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
Loop
End Sub
supergreenbean 2004-06-09
- 打赏
- 举报
Debug.Print Environ$("SystemRoot"),Environ$("TEMP")
