pb 目录遍历

最新推荐文章于 2025-10-25 17:04:33 发布

原创最新推荐文章于 2025-10-25 17:04:33 发布 · 置顶 · 4.8k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#library #function #string #structure #character #list

PB 专栏收录该内容

3 篇文章

订阅专栏

该博客介绍了一种使用API（如GetFileAttributesA、FindFirstFile、FindNextFile等）在Windows系统中遍历指定目录，获取特定类型文件列表的方法。通过结构体s_find_data和s_filetime来存储文件信息，并根据文件属性筛选文件。

//api 声明

Function ulong GetFileAttributesA(string lpFileName) LIBRARY "kernel32.dll "
FUNCTION ulong FindFirstFile(ref string lpFileName,ref s_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindFirstFileA"
FUNCTION ulong FindNextFile(ulong hFindFile,ref s_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindNextFileA"
FUNCTION Long FindClose ( Long hFindFile) LIBRARY "kernel32"
Function Integer GetLastError ( ) Library "kernel32"

//定义结构体s_find_data

global type s_find_data from structure
unsignedlong fileattribus
s_filetime creationtime
s_filetime lastaccesstime
s_filetime lastwritetime
unsignedlong filesizehigh
unsignedlong filesizelow
unsignedlong reserved0
unsignedlong reserved1
character filename[260]
character alternatefilename[14]
end type

//定义结构体s_filetime

global type s_filetime from structure
unsignedlong lowdatetime
unsignedlong highdatetime
end type

//==============================================================================
// Function: gf_getfilelist()
//------------------------------------------------------------------------------
// Description: 获得某个目录下某种类型文件的列表
//------------------------------------------------------------------------------
// Arguments:
// value string         as_directoryname       目录全路径:如“c:/”
// value string         as_filetype            文件类型:若为*则返回所以文件和文件夹，其他类型为文件后缀名
//------------------------------------------------------------------------------
// Returns:   string 格式：file1name/file2name...filenname/
//                     失败返回 null
//------------------------------------------------------------------------------
string filename,filename_list
long ll_rtn
s_find_data FindFileData
ulong ll_FileAttributes
string ls_FileAttributes= " "
//判断文件夹是否存在
ll_FileAttributes=GetFileAttributesA(as_directoryname)
IF ll_FileAttributes=4294967295 THEN
SetNull(ls_FileAttributes)
ELSE
IF Mod(ll_FileAttributes, 2) >   0 THEN ls_FileAttributes += "R "
IF Mod(ll_FileAttributes, 4) >   1 THEN ls_FileAttributes += "H "
IF Mod(ll_FileAttributes, 8) >   3 THEN ls_FileAttributes += "S "
IF Mod(ll_FileAttributes,32) > 15 THEN ls_FileAttributes += "D "
IF Mod(ll_FileAttributes,64) > 31 THEN ls_FileAttributes += "A "
END IF

IF IsNull(ls_FileAttributes) OR Pos(ls_FileAttributes, "D ") <=0 THEN
SETNULL(filename_list)
RETURN filename_list
END IF
//获得文件列表
filename= trim(as_directoryname) + "*." + trim(as_filetype)
ll_rtn = FindFirstFile(filename,FindFileData)
filename=FindFileData.filename
filename=trim(filename)
if trim(as_filetype) <> "*" and filename = "." then //as_filetype = * 遍历整个目录
filename_list+=filename+ "/"
end if
do while true
if FindNextFile(ll_rtn,FindFileData) = 0 then
FindClose(ll_rtn)
return filename_list
else
filename=FindFileData.filename
filename=trim(filename)
if filename <> ".." then //as_filetype = * 遍历整个目录
filename_list+= filename+ "/"
end if
end if
loop

return filename_list

//调用如：gf_getfilelist("c:/","txt")