怎样加入地址栏到Shell.Application选择文件夹的对话框（和IE的地址栏有点不同，姑且这样称呼吧），可以手动输入路径。
如图所示
看不到的话，这是图片地址
[ Last edited by zqz0012005 on 2007-11-26 at 02:00 PM ]
如图所示
看不到的话，这是图片地址
[ Last edited by zqz0012005 on 2007-11-26 at 02:00 PM ]
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » Shell.Application选择文件夹的对话框怎样显示地址栏？
查看 726 回复 4
楼 主
Shell.Application选择文件夹的对话框怎样显示地址栏？
发表于 2007-11-25 00:00 · 中国 四川 成都 电信
第 2 楼
发表于 2007-11-25 19:29 · 中国 四川 成都 电信
晕！百度什么时候禁止外部引用空间的图片了？太BT了
[ Last edited by zqz0012005 on 2007-11-26 at 02:02 PM ]
[ Last edited by zqz0012005 on 2007-11-26 at 02:02 PM ]
第 3 楼
发表于 2007-11-25 23:38 · 中国 广西 玉林 博白县 电信
这两天也用这个，试验得到的
objShell.BrowseForFolder(0, "查找目录:", 16)
如果这个数小于0（负数），就没有“新建文件夹”按钮
objShell.BrowseForFolder(0, "查找目录:", 16)
如果这个数小于0（负数），就没有“新建文件夹”按钮
第 4 楼
发表于 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
第 5 楼
发表于 2007-11-26 13:56 · 中国 四川 成都 电信
谢谢楼上。就是这样的
论坛跳转: