VB有什麼函數能開啟檔案

Question

例如:桌面上一個123.doc的檔案 有辦法用VB開啟嗎?

Answer 1

Option Explicit

Private Const MAX_PATH = 2048
Private Const CSIDL_DESKTOP = &H0&

Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hWndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long

Private Const SW_SHOW = 5
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()
Dim ppidl As Long, strDesktopPath As String

strDesktopPath = String(MAX_PATH, 0)

'因為Windows的版本不同，桌面的路徑就不一樣。
'可以下面兩個API函數取得桌面的路徑
SHGetSpecialFolderLocation Me.hWnd, CSIDL_DESKTOP, ppidl
SHGetPathFromIDList ppidl, strDesktopPath

strDesktopPath = Left(strDesktopPath, InStr(strDesktopPath, Chr(0)) - 1)

'開啟桌面的doc檔案
ShellExecute Me.hWnd, "open", strDesktopPath & "\123.doc", vbNullString, vbNullString, SW_SHOW
End Sub

2005-11-24 08:00:05 補充：
VB心得筆記
http://www.hosp.ncku.edu.tw/~c
ww/html/vb.html

Answer 2

我想到的是直接把WORD給引用進來，然後打開檔案...

Answer 3

有 Shell or ShellExecute api