lpfnCallback = CodePtr(BrowseCallbackProc) BI.lParam = StrPtr(sPath) iPathID = SHBrowseForFolder(BI) 'show the Browse-For-Folder dialog If iPathID Then If ...
確定! 回上一頁