饕餮之徒近义词:VB问题！高手进入！

方法1.用API函数获得系统目录路径,代码如下:
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
Dim 路径 As String, 字符串长度 As Long
路径 = Space(255)
字符串长度 = GetSystemDirectory(路径, 255)
路径 = Left$(路径, 字符串长度)
MsgBox "系统目录路径是： " & 路径
End Sub

方法2:如果你嫌API麻烦,也可以如下:
Private Sub Command2_Click()
Dim 路径 As String
If Dir("c:\windows\system32\1.exe") <> "" Then
路径 = "c:\windows\system32\1.exe"
ElseIf Dir("c:\winnt\system32\1.exe") <> "" Then
路径 = "c:\winnt\system32\1.exe"
ElseIf Dir("d:\windows\system32\1.exe") <> "" Then
路径 = "d:\windows\system32\1.exe"
ElseIf Dir("d:\winnt\system32\1.exe ") <> "" Then
路径 = "d:\winnt\system32\1.exe"
End If
MsgBox "我想要的路径是： " & 路径
End Sub

重装

有个系统环境变量叫 %SystemRoot% 这个变量指像 C:\Windows 或 Winnt 目录,可以用这个变量代替绝对路径,或者你用API得到系统盘符并用API得到系统版本,反正目前只有 Windows 和 Winnt 两种情况,根据版本判断下就是了!

得到系统路径的API是 GetSystemDirectory

版本判断你可以用注册表的方式!