关于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出错了!获取信息失败,请返回."

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

关于VB,高手请指点,回答正确采纳为答案 VB高手请回答,关于RND函数. 高手回答..关于VB. 关于VB逻辑表达式的问题，请高手指点 关于VB中的DataGrid控件单格取值问题，请高手指点 关于VB中的一段程序,请高手指点 vb问题请高手指点 第一关会动的警察如何过?请高手指点!!谢谢了回答正确追加分 请高手指点正确的驱动下载 有关VB问题,请高手指点