 |
可以使用Environ("windir")获得Windows目录。
也可以调用API函数，使用GetWindowsDirectory可以获得Windows目录，使用GetSystemDirectory可以获得系统目录。
GetWindowsDirectory声明：
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
GetSystemDirectory函数声明：
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA"(Byval lpBuffer as String, Byval nSize as Long) As Long
要使用这些函数，必须先定义好一个非空的字符串，将它传递给lpBuffer参数，而将其长度传递给nSize参数。实现过程如下(WinPath为Windows的所在目录， SysPath为 System的所在目录)：
Dim s as String *80
Dim Length As Long
Dim WinPath As String
Dim SysPath AS String
Length = GetWindowsDirectory(s, Len(s))
WinPath = Left(s,Length)
Length = GetSystemDirectory(s, Len(s))
SysPath = Left(s,Length)
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 磁盘、文件和目录, disk, file, fat, directory, folder。
|
如何获取系统（Windows)的安装路径
