作者greenmiracle (看着吧..)
看板Visual_Basic
标题[VBS]怎麽用BrowseForFolder方法来存取档案
时间Wed Mar 8 14:09:19 2006
用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