在PB中如何选择目录？.doc

在PB中如何选择目录？ 1.GetFileOpenName(title,pathname,filename,extension,filter)其中pathname包含全部路径+文件名，filename包含文件名，用pathname截掉filename部分即得到要选择的目录PB8以上用GetFolder()，以下的就用API，以前的帖子中有封装好的对象。首先定义一个名为browseinfo的structure这个structure这样定义unsignedlong hownerunsignedlong pidlrootstring pszdisplaynamestring lpsztitleunsignedlong ulflagsunsignedlong lpfnunsignedlong lparmstring iimage再定义两个external functionFunction unsignedlong SHBrowseForFolderA( browseinfo lpbrowseinfo ) Library shell32Function unsignedlong SHGetPathFromIDListA( unsignedlong pidl, ref string pszPath) Library shell32然后这么写ulong ll_messstring ls_pathls_path = space(255)browseinfo lpbrowseinfolpbrowseinfo.howner = handle(parent)lpbrowseinfo.pszDisplayName = space(255)lpbrowseinfo.lpsztitle = 请选择目录：lpbrowseinfo.pidlroot = 0lpbrowseinfo.ulflags = 1setnull(lpbrowseinfo.lpfn)ll_mess = SHBrowseForFolderA( lpbrowseinfo )SHGetPathFromIDListA(ll_mess,ls_path)sle_1.text = ls_path2.声明API函数：Function unsignedlong SHGetPathFromIDListA( unsignedlong pidl, ref string pszPath) Library shell32Function unsignedlong SHBrowseForFolderA( browseinfo lpbrowseinfo ) Library shell32Subroutine CoTaskMemFree(ulong idlist) Library ole32建立函数：string browseforfolder(window awi_parent,string(as_caption)函数内容：browseinfo lstr_biitemidlist lstr_idlunsignedlong ll_pidlunsignedlong ll_rInteger li_posString ls_Pathunsignedlong ll_NullSetNull( ll_Null )unsignedLong BIF_RETURNONLYFSDIRS =1lstr_bi.hOwner = Handle( awi_Parent )lstr_bi.pidlRoot = 0lstr_bi.lpszTitle = as_captionlstr_bi.ulFlags = bif_ReturnOnlyFSDirslstr_bi.pszDisplayName = Space( 255 )lstr_bi.lpfn = ll_Nullll_pidl = SHBrowseForFolderA( lstr_bi )ls_Path = Space( 255 )ll_R = SHGetPathFromIDListA( ll_pidl, ls_Path )CoTaskMemFree( ll_pidl )RETURN ls_Path