如何实现自动打开文件

Question

如何能自动打开我选择的某个文件,文件类型是不固定的,也就是说:如果我选择的是*.doc,则自动用word打开它,如果是*.xls,则自动用excel打开,等等!

Answer 1

用ShellExecute打开一个Word文件，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
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()    ShellExecute Me.hwnd, vbNullString, "c:\aa.doc", vbNullString, "",
SW_SHOWNORMAL
End Sub