gpt4 book ai didi

获取目录下所有文件名的代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章获取目录下所有文件名的代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

一:获取指定文件夹的文件 。

复制代码 代码如下

procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); while found=0 do begin if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDirectory) then ListBox1.Add(SearchRec.Name); found:=FindNext(SearchRec); end; FindClose(SearchRec); end,

二:获取该目录下的子目录的文件 。

复制代码 代码如下

procedure SearchFile(path:string); var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAanyFile,SearchRec); while found=0 do begin if (SearchRec.Name<>'.') and (SearchRec.name<>'..) and (SearchRec.Name=faDirectory) then SearchFile(SearchRec.Name+'\') else LisBox1.Add(SearchRec.Name); found:=FindNext(SearchREc); end; FindClose(SearchRec); end,

最后此篇关于获取目录下所有文件名的代码的文章就讲到这里了,如果你想了解更多关于获取目录下所有文件名的代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com