Question

vb6怎么用一个按钮 来打开指定文件

Answer 1

'可执行文件用shell
shell app.path & "\文件名.后缀名"(app.path &表示当前路径,其他路径直接给出完整的文件地址即可), 0(加参数0或1,表示无焦点或有焦点)
'运行非exe程序
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
Const SW_SHOW = 5
ShellExecute Me.hwnd, "open", App.Path & "\123.txt", "", "", SW_SHOW '打开文件
Call ShellExecute(Me.hwnd, "Open", "http://clksir.qupan.com", "", App.Path, 1) '打开网址
Call ShellExecute(Me.hwnd, "Open", "mailto:clksir@163.com?Subject=主题&body=正文&Attach=doc1", "", App.Path, 1) '打开邮箱
以上叙述笔者省略了参数四及参数五， 其中参数四表示传递给执行档的参数，但由於此一 ShellExcute 叙述已经是用来开启文件， 所以此一参数通常设定为 ""， 参数五则表示工作目录， 若设定为 ""， 则以文件的所在目录为工作目录。此外，参数六表示文件开启後显示的方式， SW_SHOW 表示正常大小， 若设定成 SW_SHOWMINIMIZED，则以最小化的视窗来显示， 若设定成 SW_SHOWMAXIMIZED， 则以最大化的视窗来显示。

Answer 2

shell "路径"

Answer 3

用Shell函数

追问

能不能说的具体一点啊 ，比如我要打开word, PDF等指定的文件，怎么办，一个SHELL都可以解决吗？？？

追答

可以的！