光明j吉他弹唱:VB问题!高手进入!
来源:百度文库 编辑:高考问答 时间:2024/05/11 19:29:05
请问如何才能实行%systen%这样的shell 方法?
方法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
版本判断你可以用注册表的方式!