Question

VB搜索外部文件并且打开,高手来帮忙！

想写一个小程序 点击 按钮搜索电脑上各个磁盘分区指定的EXE外部程序
搜索成功后不提示 自动打开程序。
当然 VB搜索程序也不会关闭

按钮代码为
Option Explicit

Dim WithEvents o As FileFindEngine
Private Sub Command1_Click()
o.Find "C:\;D:\", "metaback.vbs;CSOLauncher.exe"
End Sub

Private Sub Form_Load()
Set o = New FileFindEngine
End Sub

Private Sub o_Complete()
MsgBox "搜索完毕"
End Sub

Private Sub o_Found(ByVal FileName As String, Cancel As Boolean)
Debug.Print FileName
'Cancel = True
End Sub

现在的问题是 能搜索提示成功 但是不打开搜索到得文件
我想自动打开搜索到得文件，并且不提示。
请大家帮忙，改改。最好有源码！
搜索到了程序 自动打开文件 而且还不要关闭 当前VB程序界面 ！

Answer 1

Private Sub Form_Load()
Shell "notepad.exe", vbMaximizedFocus
End Sub

'或者用api

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
ShellExecute 0&, vbNullString, "notepad.exe", vbNullString, vbNullString, vbMaximizedFocus
End Sub

Answer 2

打开外部程序方法，一般用shell函数。

shell函数的格式如下：
Function Shell(PathName, [WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double

shell函数可以直接使用，不需要声明

例如，想打开记事本，可以用如下代码：
Call Shell("C:\WINDOWS\notepad.exe", vbNormalFocus)

以此类推...

在你程序中，加入一段类似上面的代码就能自动打开了...

如果发现多个外部程序符合条件，得选出需要的程序来，或者用For语句全部都打开也行...