[VBS]怎麼用BrowseForFolder方法來存取檔案

[greenmiracle (看著吧..)]

用BrowseForFolder方法讓使用者選擇資料夾可以抓到，例如下面是一個對話盒讓使用者
選擇資料夾，然後跳出視窗告知使用者選擇的資料夾的路徑：
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0

'將[我的電腦]設為[根資料夾]
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path

'使用者選取的資料夾設給objFolder(Shell Folder)
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Select a folder：", OPTIONS, strPath)

If objFolder Is Nothing Then
    WScript.Quit
End If

Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path

WScript.Echo objPath

但如果是檔案的話就抓不到了
若把第三個參數改成
Const OPTIONS = 16384
則可以瀏覽全部的東西包括檔案
但選取檔案的結果是發生[系統找不到指定的檔案]的錯誤
請問該如何解決才能選取檔案?

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.127.82.104