任何文件都可以,只要关联了相关的程序
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
\’调用打开c:a.ppt
Private Sub Command1_Click()
Dim pat
pat = \"c:a.ppt\" \’假设是你所放文件的路径
ShellExecute Me.hwnd, \"open\", pat, pat, vbNull, 3
End Sub
责任编辑:cyth