shell不行!
首先你要用搞好路径,如果是和你的程序在同一个程序包内的,要用相对路径,即App.Path 。比如你要打开VB所在路径的abc.doc。那么你可以这样:
Dim xx As String
xx = App.Path & "\" & "abc.doc"
i = ShellExecute(hwnd, "open", xx, vbNullString, vbNullString, 1)
只要在某个事件中加入这个就可以了。
如果不是同一个程序包内,要知道它的路径,用绝对路径。比如C盘的某的文件abc.exe.
把上面的xx=?改为:
xx="c:\abc.exe"
就可以了!
提示一下,上面用了API函数。这里不能直接用shell函数,因为shell函数只能直接打开.com等等这样的。对于.doc等等这样的如果要用shell函数必须要告诉它的关联文件的路径,而对不同的计算机,关联文件的安装是不同的,所以不好实现。而API函数ShellExecute则会自动找到关联文件,并打开。
Shell "详细路径",1
谁说shell不行啊?
他要的只是外部的程序,不是文件
你的是对所有文件有效
但是如果程序的话直接shell完全就可以了!
SHELL,外部文件,程序都可以
SHELL