我不知道你是否只需要開啟檔案還是需要對檔案進行其他操作，如下是開啟檔案的的方法：

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 "首先利用API中的ShellExecute函式，使用此函式可開啟任意字尾名的檔案

ShellExecute Me.hwnd, "open", "D:\123.txt", vbNullString, vbNullString, vbNormalFocus ‘具體開啟指定目錄的檔案End Sub附ShellExecute函式說明：VB宣告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說明查詢與指定檔案關聯在一起的程式的檔名返回值Long，非零表示成功，零表示失敗。