pb利用api函数遍历目录问题
global type filetime from structure
long dwLowDateTime
long dwHighDateTime
end type
global type win32_find_data from structure
long dwfileattributes
filetime ftcreationtime
filetime ftlastaccesstime
filetime ftlastwritetime
long nfilesizehigh
long nfilesizelow
long dwreserved0
long dwreserved1
string cfilename
string calternate
end type
ls_path = "*.mdb"
FindHandle = FindFirstFile(ls_path,FindData)
IF FindHandle = -1 THEN RETURN
ls_file_name = string(FindData.cFileName)//执行这一句出错,是什么原因?
DO WHILE TRUE
IF FindNextFile(FindHandle,FindData) = -1 THEN
FileClose(FindHandle)
RETURN
ELSE
ls_file_name = string(FindData.cFileName)
END IF
LOOP