得到一个指定目录下所有文件的文件名，子目录名不要

最新推荐文章于 2022-09-17 22:53:09 发布

luoyanqing119

最新推荐文章于 2022-09-17 22:53:09 发布

阅读量737

点赞数

文章标签： button

本文链接：https://blog.csdn.net/luoyanqing119/article/details/2866136

版权

如何得到一个指定目录下所有文件的路径名+文件名，子目录名不要。比如在D盘下有AAA的目录，目录中有1.EXE,2.TXT.4.COM.6.JPG等文件，及aa,aaa等子目录，但在BUTTON1按了后在LISTBOX1中显示所有文件的完整名字，子目录名不要，应该显示为
-----------------------------------------------------------------------------------------------------------------------------------

procedure FilesFromDir(ADir:string;var lst:TStringList);
var
    Sch:TSearchRec;
    iRet:Integer;
begin
    if not DirectoryExists(ADir) then Exit;
    ADir:=IncludeTrailingBackslash(ADir);
    iRet:=FindFirst(ADir+'*.*',faAnyFile,sch);
    while (iRet=0) do
    begin
        if (Sch.Attr and faDirectory)=0 then //不是文件夹
           lst.Add(ADir+sch.Name);
        iRet:=FindNext(Sch);
    end;
    FindClose(Sch);
end;

------------------------------------------------------------------------------------------------------调用

var
ls:TstringList;
begin
ls:=TStringList.create();
FilesFromDir('d:/',ls);
listbox1.items.assign(ls);
ls.free;
end;