Question

请教VB问题.如何实现点击按钮运行同一目录下的文件

例如我做了一个VB工程,生成在"D:\VB\a.exe"
在同一个盘里有个"D:\VB\abc\b.exe"

我是想做一个光碟.路径里的文件夹不会变.
但盘符却会因为各人的计算机而不同

所以我想做到
点击一个按钮.便运行同一个盘下的某个文件夹里的文件(不单单是".exe"的)

代码该怎么写?
谢谢!
各位太高估我了.我看不懂..请把代码完整写给我好吗?..按钮的请注明是按钮的,声明的也注明下..我菜..

Answer 1

'在窗框内加入command1控件，并在窗体代码区复制下面代码，运行，按command1按钮，它就会执行程序所在目录下的\abc\b.exe文件，而不管以后生成的exe文件安装在什么地方。

'====窗体代码====
Option Explicit
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 Command1_Click()
Dim FileName As String
FileName = App.Path & "\abc\b.exe" '你可以在此加入你想打开的任何文件，包括非可执行文件，如文本文件等
ShellExecute Me.hwnd, vbNullString, FileName, vbNullString, vbNullString, 1

End Sub

Answer 2

有一个
app.path
这个函数~
你print app.path一下，就知道这个函数怎么用了~

。。。晕。。你vb里面直接加一行
print App.Path

其他的会做不？
关键是打开除了exe之外的东西这个我倒不会做。。

楼上说的shell没用，除了打开exe之外，其他的打不开，我的做法是把其他的保存为bat，然后用shell打开bat

刚刚查了一下，知道怎么打开其他文件了

filedir = "rundll32.exe url.dll, FileProtocolHandler " & FILEPATH
Shell filedir, vbNormalFocus

2句合在一起用就好了，那个FILEPATH就是你的文件路径

Answer 3

用shell可以!~

你查一下shell就知道了!~

Answer 4

shell(<程序名>[，<运行样式>])
Dim paths As String
paths = App.Path & "\abc.exe"
s = Shell(paths)