如何用VB调用一个外部EXE程序？

使用Shell函数函数。

Shell函数是VB中的内部函数，它负责执春行行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。

Shell的语法：Shell(PathName[，WindowStyle])。

PathName 为必需参数。类型为String，它指出了要执行的程序名，以扒野哗及任何需要的参数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

示例，打开当前程序所脊链在目录下的TEMP.EXE文件：

Dim a As Integer

a = Shell(App.Path &"\TEMP.EXE")

就用shell函数 足够了

shell "cmd.exe",vbhide

如果不加vbhide的ua会闪春薯过一个黑屏 不爽

如果要执行cmd命令 shell "cmd /c net user>c:\1.txt",vbhide

执行了net user命轮森销令 回显输出到了腊游c:\1.txt里

四种方法：注意环境变量的使用，以及shell的第2个参数

Private Sub Command1_Click()

Shell Environ("SystemRoot") &"\notepad.exe", vbMinimizedNoFocus '相对路径，缺拦启动记事本并最小化

Shell "c:\windows\system32\winmine.exe", vbNormalFocus '绝对路径，启动扫雷游戏，并设置焦点

Shell Environ("ComSpec") &" /c start freecell.exe", vbNormalNoFocus '调用CMD，启动空当接谨扮腔龙，并不设祥衫焦点

Shell Environ("ComSpec") &" /k dir", vbMaximizedFocus '调用CMD，执行DOS命令列出文件列表，执行完成后不退出CMD，并最大化

End Sub

---