用VB获得操作系统路径示例和操作系统环境函数Environ

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
_______________________________________________________
Private Sub Command1_Click()
        Dim S     As String
        Dim Ret     As Long
        S = Space(1024)
        Ret = GetSystemDirectory(S, 1024)
        S = Left$(S, InStr(S, Chr(0)) - 1)
        MsgBox S
        MsgBox Environ(2)
End Sub

 

操作系统环境函数Environ 就是返回系统set环境变量的值

Private Sub command1_Click()
Dim i As Integer
For i = 1 To 100 
    Debug.Print Environ(i)
Next i
End Sub