DDR爱好者之家 Design By 杰米
一:获取指定文件夹的文件
复制代码 代码如下:
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;
复制代码 代码如下:
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;
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2024年04月29日
2024年04月29日
- 李国祥.2011-循环再唱(K2HD限量版)【新世纪】【WAV+CUE】
- 【原神】枫丹V4.6世界任务 | 终章·安魂曲+++后续隐藏任务
- 【原神】V4.6角色攻略 | 选仆人还是林尼?优缺点对比
- 【原神】旧日之海,奇馈宝箱收集(共10个)
- 龚玥《龚玥精选珍藏》[WAV+CUE][649M]
- 群星《勃拉姆斯钢琴四重奏全集1-3》[320K/MP3][287.13MB]
- 群星《勃拉姆斯钢琴四重奏全集1-3》[FLAC/分轨][546.47MB]
- 飞跃虹镜什么时候上线 国服公测时间预测
- 七日世界阿尔法收容井在哪 位置及玩法介绍
- 原神4.6版本隐藏锚点开启攻略 从大海到大海成就
- dnf无敌药水什么名字
- 物华弥新换位置方法分享 物华弥新怎么换位置
- 物华弥新迷踪盘第15关怎么过 迷踪盘第15关通关方法
- win7怎么更换激活码,win7更改激活码
- 电脑怎么安装安卓系统不卡的,电脑怎么安装安卓系统软件