VB里如何实现点击按扭自动打开外部的.exe程序

可以把你要打开的那个些程序的可执行文件放在和你的过程文件同一个文件夹（或者更深级别的文件夹）中，然后在那个代码中使用相对路径取得那些可执行文件名打开就可以了，这样不管你要打开的那些程序放在什么地方，这样和你的工程文件的相对位置保持不变，就不会有问题的，有必要时可以将VB工程文件生成可执行文件，然后制作成免安装程序，这样即使到了没有安装VB6的电脑上，也可以正常运行的，必要时将那个免安装文件的运行文件创建一个快捷方式图标放到桌面上就可以了，挺简单的。引用相对路径打开程序的代码如下（假如你要打开的程序可执行文件放在和VB工程文件同级别的“程序”文件夹中）：

Private

Sub

登陆_Click()

X

=

Shell(App.Path

&

"\程序\update.exe",

1)

End

Sub

如果是exe文件的话把下面一段加入你的程序:

sub

command1_click()

shell

"<你想打开的文件的目录及名字>"

end

sub

如果是txt文件的话把下面一段加入你的程序:

sub

command1_click()

shell

"C:\WINDOWS\notepad.exe

<你想打开的文件的目录及名字>"

end

sub

希望采纳

---