编写VB代码,使用系统默认程序打开任意非可执行文件

hwnd：窗口句柄，Form对象.hwnd，me.hwnd或者0。
lpOperation：操作，“edit”编辑，“explore”浏览，“find”查找，“open”打开（常用），“print”打印，“”默认（相当于双击==）
lpFile：文件名。
lpDirectory：工作路径名。
nShowCmd：打开的窗口显示方式。0隐藏，1正常（常用），2最小化有焦点，3最大化，4不激活，5显示，6最小化无焦点+激活下一个窗口，7最小化无焦点，8正常无焦点，9从最小化还原，10默认。

自行查阅msdn。

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
Private Sub Command1_Click()
On Error GoTo 10
CommonDialog1.ShowOpen
 If LCase(Right(CommonDialog1.FileTitle, 4)) <> ".exe" Then ShellExecute Me.hwnd, "open", CommonDialog1.FileName, "", "", 5
10
End Sub

内容不多，就一个api函数。在窗体上添加一个按钮和一个CommonDialog控件。

你不能自己起查查，其实我也不知道，对不常用参数也没去研究，反正能用就行了。只需第三参数传递文件名就可以了。

Shell "explorer " & "D:\用户文档\桌面\出勤统计系统.doc"