``` 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 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '功能：打开文件，相当于双击打开对应的文件 '函数名：openFileDbl '入口参数：fileN,要打开的文件的全路径 '备注：sysdzw 于 20:55 2007-08-24 提供 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub openFileDbl(hwnd As Long, fileN As String) ShellExecute hwnd, vbNullString, fileN, vbNullString, vbNullString, 1 End Sub ShellExecute 0, vbNullString, fileN, vbNullString, vbNullString, 1 ```