多文件操作
怎样在pb9.0中调用API函数进行多文件的导入，例如将多个文件同时导入数据库？ API 数据库 多文件
[解决办法]
方案：先抓取文件夹，然后再读取文件夹中的各文件名。
//文件夹浏览通用对话框API函数
FUNCTION Long SHBrowseForFolder (REF str_BROWSEINFO lpBrowseInfo) LIBRARY "shell32.dll" ALIAS FOR "SHBrowseForFolderA;Ansi"
SUBROUTINE CoTaskMemFree (Long hMem ) LIBRARY "ole32.dll"
FUNCTION Long SHGetPathFromIDList(long pidList, REF string lpBuffer) LIBRARY "shell32.dll" ALIAS FOR "SHGetPathFromIDListA;Ansi"
global type str_browseinfo from structure
longhwndowner
longpidlroot
stringdisplayname
stringtitle
longflags
longpfn
longparam
stringimage
end type
String ls_ReturnPathName
Long ll_rc
str_BROWSEINFO lstr_Info
Long ll_pIDlRoot
Long ll_BrowseInfoFlags
ls_ReturnPathName = Space( 256 )
ll_browseinfoflags = BIF_RETURNONLYFSDIRS + BIF_USENEWUI
//初始化结构browseinfo
lstr_info.hWndOwner = Handle( This )
lstr_info.DisplayName = ls_ReturnPathName
lstr_info.Title = "请选择文件夹目录："
lstr_info.pidlroot = ll_pIDlRoot
lstr_info.flags = ll_BrowseInfoFlags
//显示文件夹浏览对话框
ll_rc = SHBrowseForFolder( lstr_Info )
IF ll_rc > 0 THEN
SHGetPathFromIDList( ll_rc, ls_ReturnPathName)
//释放内存
CoTaskMemFree(ll_rc)
Return RightTrim(ls_ReturnPathName)
Else
Return ""
End If
