VB 调用打开各种文件（自动查找使用默认的程序）

任何文件都可以，只要关联了相关的程序

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