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

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函式，使用此函式可開啟任意字尾名的檔案

Private Sub Command1_Click()

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，非零表示成功，零表示失敗。會設定GetLastError引數表引數型別及說明hwndLong，指定一個視窗的控制代碼，有時候，windows程式有必要在建立自己的主視窗前顯示一個訊息框lpOperationString，指定字串“open”來開啟lpFlie文件，或指定“Print”來列印它lpFileString，想用關聯程式列印或開啟一個程式名或檔名lpParametersString，如lpszFlie是可執行檔案，則這個字串包含傳遞給執行程式的引數lpDirectoryString，想使用的完整路徑nShowCmdLong，定義瞭如何顯示啟動程式的常數值。參考ShowWindow函式的nCmdShow引數