如果你只要控制面板里面的,用这个VBS脚本就可以了:
20120203.vbs- Dim p : p = GetOnePath()
- InputBox "可用路径:", p(0), p(1)
-
- Function GetOnePath()
- Dim sa, fd, fdi
- Set sa = CreateObject("Shell.Application")
- ON ERROR RESUME NEXT
- Set fd = sa.BrowseForFolder(0, "选择一个对象:", 0)
- Set fdi = fd.Self
- GetOnePath = Array(fdi.Name, fdi.Path)
- End Function
复制代码
|