＋设为首页 ＋添加到收藏夹
rt
Environ
Private Declare Function GetSystemDirectory Lib "Kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
取得作業系統系統目錄
Private Function GetSysDir() As String
Dim iRet As Long
Dim sPath As String * 255
iRet = GetSystemDirectory(sPath, 255)
GetSysDir = StripTerminator(sPath)
End Function
去除字串多餘空字串
Private Function StripTerminator(ByVal sSplitString As String) As String
StripTerminator = Left(sSplitString, InStr(sSplitString, vbNullChar) - 1)
End Function
在窗体上加入一个ListBox:
Private Sub Form_Load()
Dim EnvironValue As String, i As Integer
i = 1
Do
EnvironValue = Environ(i)
List1.AddItem EnvironValue
i = i + 1
Loop Until EnvironValue = ""
End Sub
