标题: Shell.Application选择文件夹的对话框怎样显示地址栏？ [打印本页]
作者: zqz0012005 时间: 2007-11-25 00:00 标题: Shell.Application选择文件夹的对话框怎样显示地址栏？
怎样加入地址栏到Shell.Application选择文件夹的对话框（和IE的地址栏有点不同，姑且这样称呼吧），可以手动输入路径。
如图所示
看不到的话，这是图片地址
[ Last edited by zqz0012005 on 2007-11-26 at 02:00 PM ]
作者: zqz0012005 时间: 2007-11-25 19:29
晕！百度什么时候禁止外部引用空间的图片了？太BT了
[ Last edited by zqz0012005 on 2007-11-26 at 02:02 PM ]
作者: zh159 时间: 2007-11-25 23:38
这两天也用这个，试验得到的
objShell.BrowseForFolder(0, "查找目录:", 16)
如果这个数小于0（负数），就没有“新建文件夹”按钮
作者: kich 时间: 2007-11-26 09:56
这样的显示地址栏,不知道是不是你想要的:
Set theApp = CreateObject("Shell.application")
Set Path = theApp.BrowseForFolder(0,"Choose an encoded file", &H4031, &H0011)
If Path Is Nothing Then WScript.Quit
MsgBox Path.items.Item.Path
Set Path = theApp.BrowseForFolder(0,"Choose an encoded file", &H4031, &H0011)
If Path Is Nothing Then WScript.Quit
MsgBox Path.items.Item.Path
作者: zqz0012005 时间: 2007-11-26 13:56
谢谢楼上。就是这样的