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

文件夹中的宝藏：轻松获取所有文件名

亲爱的朋友们，如果你想要获取指定文件夹中的所有文件名，或者想要某个目录下的子目录文件，那么以下的代码将为你带来极大的帮助。让我们一起这段代码的奥秘吧！

一、获取指定文件夹的文件名

你可以参考以下的代码片段：

```pascal

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;

```

二、获取该目录下的子目录的文件名

对于获取指定目录下的所有子目录中的文件名，你可以使用以下代码：

```pascal

procedure SearchFile(path: string);

var

SearchRec: TSearchRec;

found: integer;

begin

found := FindFirst(path + '', faAnyFile, SearchRec);

while found = 0 do

begin

if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then

if SearchRec.Attr = faDirectory then

SearchFile(SearchRec.Name + '\\') //递归调用以子目录

else

ListBox1.Add(SearchRec.Name); //添加非目录文件到列表框中

found := FindNext(SearchRec);

end;

FindClose(SearchRec);

end;

```

以上代码将会帮助你轻松获取指定目录下的所有文件名，包括子目录中的文件。希望对你有所帮助！请注意，在运行代码之前，确保你已经正确设置了路径和其他相关参数。请确保你有足够的权限来访问指定的文件夹和文件。如果你在使用过程中遇到任何问题，欢迎随时向我提问。