现在用你的
Set mfolder = mshell.BrowseForFolder(lhWnd, "当前目录:D:\Soft\Dveelope"
, &H10, "D:\Soft\Dveelope")可以定位到指定的目录了,但是还有一个问题,就是定位的目录被作为了根目录(RootFolder),这时候目录选择框中的树型结构就没有了,而是构造了一颗以指定的目录作为根的树!现在想做的是:能够保持原来的树型结构不变而又能够定位到指定的目录吗?