

CODE: [Copy to clipboard]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |