中国DOS联盟

怎样加入地址栏到Shell.Application选择文件夹的对话框（和IE的地址栏有点不同，姑且这样称呼吧），可以手动输入路径。
如图所示
看不到的话，这是图片地址

[ Last edited by zqz0012005 on 2007-11-26 at 02:00 PM ]

晕！百度什么时候禁止外部引用空间的图片了？太BT了

[ Last edited by zqz0012005 on 2007-11-26 at 02:02 PM ]

这两天也用这个，试验得到的

objShell.BrowseForFolder(0, "查找目录:", 16)

如果这个数小于0（负数），就没有“新建文件夹”按钮

这样的显示地址栏,不知道是不是你想要的:

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

谢谢楼上。就是这样的