Question

VB6.0点击按钮自动打开一个.EXE文件

点击后如果没有这个文件，怎样实现，弹出一个对话框，说“不存在此文件”，单击确定后，窗体又不自动关闭。还可以继续单击别的按钮，选择另一个文件。
我的方法是
on error resume next （为了不出错，用了这个，）
shell "c:\1.exe"
但是单击后，没有反应，不会弹出对话框，我就是想问这个！！

Answer 1

on error resume next 的意思是出现错误后继续跳过错误继续执行，当然没反应了。你可以这么写
On Error GoTo myerr
shell "c:\1.exe"
exit sub

myerr：
Select Case Err.Number
Case 53
msgbox"文件不存在"
Case Else
msgbox"不明错误"
end select

或者不用API，直接用dir函数判断有没有文件存在不就可以了，如下

if dir("c:\1.exe")="" then
msgbox"文件不存在"
else
shell "c:\1.exe"
end if

Answer 2

你先要判断文件是否存在，用一个API即可，

在模块里声明

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

然后在按钮里写上
If CBool(PathFileExists(sFile)) Then msgbox "文件不存在"