如何得到一文件夹下所有的文本文件名？

terry_tj 2003-11-20 03:34:14

如何得到一文件夹下所有的文本文件名？

...全文

59 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

chwdong 2003-11-20

打赏
举报

用FILELIST
过滤类型为.TXT

hottey 2003-11-20

打赏
举报

唉.来晚了.
把楼上那位的*.*改为*.txt就是结果了.
之所以要排除"."".."是因为每个文件目录下都会有这两个东东了.哈哈.
给分吧!

reedseutozte 2003-11-20

打赏
举报

procedure Tfrmmain.serach;
var
sr: TSearchRec;
FileAttrs: Integer;
s1, s2: string;
begin
if findfirst(Edpath.Text + '\*.*', FileAttrs, sr) = 0 then
repeat
if ((sr.Name <> '.') and (sr.Name <> '..') and ((filegetattr(Edpath.Text + '\' + sr.Name)
and fadirectory) <> fadirectory)) then
begin
s1 := Edpath.Text + '\' + sr.Name;
if Edit2.Text = copy(s1, length(s1) - length(edit2.Text) + 1, length(edit2.Text)) then
begin
s2 := copy(s1, 1, length(s1) - length(edit2.Text)) + Edit3.Text;
renamefile(s1, s2);
end;
end;
until findnext(sr) <> 0;

if findfirst(Edpath.Text + '\*.*', FileAttrs, sr) = 0 then
repeat
if ((sr.Name <> '.') and (sr.Name <> '..') and ((filegetattr(Edpath.Text + '\' + sr.Name)
and fadirectory) = fadirectory)) then
serach;
until findnext(sr) <> 0;
end;