关于打开浏览文件夹的问题
str_browseinfo lstr_bi
str_itemidlist lstr_idl
unsignedlong ll_pidl, ll_r,ll_Null
Integer li_pos
String ls_Path
SetNull( ll_Null )
lstr_bi.hOwner = Handle( awi_Parent )
lstr_bi.pidlRoot = 0
lstr_bi.lpszTitle = as_caption
lstr_bi.ulFlags = bif_ReturnOnlyFSDirs
lstr_bi.pszDisplayName = Space( 255 )
lstr_bi.lpfn = ll_Null
ll_pidl = SHBrowseForFolderA( lstr_bi )
ls_Path = Space( 255 )
ll_R = SHGetPathFromIDListA( ll_pidl, ls_Path )
CoTaskMemFree( ll_pidl )
RETURN ls_Path
这是用API 打开浏览文件夹 对话框的窗口 但是没有新建文件夹按钮 查资料 说是关键在于lstr_bi.ulFlags参数的值 可是没查到具体值是多少 试了几个也不行 请高手赐教 怎样加上新建文件夹按钮 谢谢!