VB制作小程序 按钮问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 04:23:48
我想用VB编辑个好像 霏凡装机小精灵 这样的工具。。添加按钮。在按钮里打代码。就可以启动文件夹里的程序。。。。有高手可以帮帮我吗？

我要达到的目的是，有一个新建的文件夹，文件夹里和霏凡装机小精灵都是一样的。点击按钮就启动文件夹里的某个程序。

2个按钮，一个TEXT，选择执行文件执行。
Private Sub Command1_Click()
CommonDialog1.Filter = "执行文件(.exe)|*.exe"
CommonDialog1.ShowOpen
filename = CommonDialog1.filename
If filename <> "" Then
if right(filename,4)=".exe" then
text1.text=filename
else
msgbox "文件非可执行文件",vbokonly,"提示"
filename="'
end if
End If
End Sub

Private Sub Command2Click()
if text1.text<>"" then
shell(text1.text)
end if
End Sub

Private Sub Command1_Click()
Shell App.Path + "\程序.exe"
End Sub

Private Sub Command1_Click()
Shell App.Path + "/123.exe"
End Sub

LS的，盗版我的。。。。