有谁可以给我编写一个VB打开本目录文件的程序？

来源：百度知道 编辑：UC知道 时间：2024/06/25 07:29:13
我想打开VB编写的应用程序所在当前目录中某文件夹的指定文件？
我用VB添加按钮，并双击打开在代码框里写入以下语句，但是都不行，为什么？有哪位高手指点一下。
方案1
StrFileName=App.Path & "\abc\abc.bat"
Shell "EXPLORER.EXE /n," & StrFileName, vbNormalFocus
方案2
StrFileName=App.Path & "\abc\abc.bat"
Call SubOpenFile(StrFileName,form1 )
方案3
Shell App.Path & "\abc\abc.bat"

以上方法都不行，怎么解决？谢谢大家！

用shellexecute函数随便打开什么类型的文件都可以，
代码：

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 Const SW_NORMAL = 1

Private Sub Command1_Click()
Dim fn As String
fn = App.Path & "\abc\abc.bat" '这里改成你自己需要的路径文件
ShellExecute Me.hwnd, "open", fn, vbNullString, vbNullString, 1
End Sub