Question

关于VB,高手请指点,回答正确采纳为答案

Private Sub SystemInfo_Click()
On Error GoTo SysInfoErr

Dim rc As Long
Dim SysInfoPath As String

' Validate Existance Of Known 32 Bit File Version '
If (Dir(SysInfoPath & "msinfo32.exe") <> "") Then
SysInfoPath = SysInfoPath & "msinfo32.exe"

' 错误文件找不到... '
Else
GoTo Err
End If

Call Shell(SysInfoPath, vbNormalFocus)

Exit Sub
Err:
MsgBox "NND出错了!获取信息失败,请返回.", vbOKOnly
Resume Next
End Sub

相信高手们一看就知道我要达到的目的了.
当我运行就
"NND出错了!获取信息失败,请返回."

文件找不到?路径写错了?请高手纠正,如何实现?谢谢,感激!

Answer 1

你自己用msgbox写的 "NND出错了!获取信息失败,请返回.", vbOKOnly
程序没有问题
msgbox函数来弹出对话框
可以实现

Answer 2

程序没有问题 只不过是你得路径问题！~

SysInfoPath 在这个地方打个断点 取出来看看这里面的路径对不对！~