Question

VB如何调用外部程序？

希望能给出个具体例子

Answer 1

Shell 函数

执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

语法

Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。

windowstyle 命名参数有以下这些值：
常量 值 描述
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误

Answer 2

给你个例子：
StockExe.exe 为一个外部可执行程序
Private Sub Command1_Click()
If FileExists(App.Path & "\StockExe.exe", vbNormal) = False Then
MsgBox "仓库管理子模块不存在，请重新安装或与软件开发商联系！", vbInformation
Else
Shell App.Path & "\StockExe.exe", vbNormalFocus
End If
End Sub

'判断文件是否存在
Public Function FileExists(ByVal Str_FileName As String, ByVal Int_Val As VbFileAttribute) As Boolean

If Int_Val <> vbDirectory Then
If Dir(Str_FileName) = "" Then
FileExists = False
Else
FileExists = True
End If
Else
If Dir(Str_FileName, vbDirectory) = "" Then
FileExists = False
Else
FileExists = True
End If
End If
End Function
要给分哦！！！

Answer 3

shell"cmd"

Answer 4

shell "c:\windows\notepad.exe"