vb编程问题，高手进！高分悬赏 速度回答

Question

比如你编了1个文件，把那个文件放在一个任意文件夹里，可以让它打开名为 1.exe 的文件。不要告诉我是 Private Sub Command1_Click()
Shell "C:\a", vbNormalFocus
End Sub
那是打开指定文件夹的文件。

希望君能帮助我。
上面搞错了，是a文件，不是1.exe,抱歉

Answer 1

大家都没正确理解他的意思！
他的真正意思是那个文件放在任意文件夹都要能打开。不是固定的路径！
代码我就不写了，你可以根据我的思路去写。
1.要做个全盘文件查找功能，找到1.exe文件时，提取其路径，并运行。
2.如果想做好点！最好加个大小或某个信息做为同名辨认对比。加强文件运行的准确性。
回复luomandick 这位朋友的话！
我也补充一下吧！你这样的只是程序要打开的文件在同一目录才能运行！我对与他的意思理解是需要运行的文件在任意目录，写的程序也是在任意目录，不一定在同一目录。。100分的题不是一句 Shell "explorer " & App.Path & "", 1
就完事了吧，现在的分不是那么好拿了噢！而且app.path的路径是什么我也不多说了！呵呵！要不然我的意思也理解错了吧！

Answer 2

Option Explicit

Private Sub command1_click() '单击
Shell "explorer " & App.Path & "", 1
End Sub
我试过了···可以的···呵呵

回复：不懂就问不怕问
请看清楚，我这个就是那个应用程序在哪里就打开那个应用程序文件夹而不是应用程序的方法··· 和其他的都不一样的···修改了下我就排在在这么下面了··呼呼··

回复：不懂就问不怕问
被不懂就问不怕问说了下，我再看了下题目发觉越来越混了··
楼主说，把那个文件放在一个任意文件夹里，可以让它打开名为 1.exe 的文件。而根据他的截图来说是此程序所在文件夹下的文件。那不是只要Shell App.Path & "\a.exe"就好了？

Answer 3

以下代码可以打开当前目录下所有注册类型的文件：

Private Sub Command1_Click()
Dim S As String
Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""
S =app.path & "\xxx.xx" '请把xxx.xx修改为具体的文件名，其他代码不要改
Shell Replace(Sh, "#", S) '打开
End Sub本回答被提问者采纳

Answer 4

shell "start " & app.path & "\a"
这里的start意思就是可以用系统默认程序打开非可执行格式
app.path返回生成文件所在目录(这个据说一定要生成exe才能用),不包括"\"
所以在最后加上
a就是你的文件了
还有任何不明白找我,我的QQ1120212213

Answer 5

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Sub command1_Click()

Dim ofn As OPENFILENAME
Dim rtn As String
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Me.hWnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "所有文件"
ofn.lpstrFile = Space(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = App.Path
ofn.lpstrTitle = "打开文件"
ofn.flags = 6148
rtn = GetOpenFileName(ofn)
If rtn >= 1 Then
Me.Caption = ofn.lpstrFile
Else
Me.Caption = "Cancel Was Pressed"
End If
Shell Me.Caption, vbNormalFocus
End Sub

添加一个按钮。复制上面代码