得到windows安装路径
方法1 使用API
Private Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
‘ Return values as C:\Windows or <Driver>:\Windows
Public Function GetTheWindowsDirectory() As String
Dim strWindowsDir As String ‘ Variable to return the path of Windows Directory
strWindowsDir = Space(250) ‘ Initilize the buffer to receive the string
GetWindowsDirectory(strWindowsDir, 250) ‘ Read the path of the windows directory
Return strWindowsDir
End Function
方法2
Environment.GetEnvironmentVariable("windir")
