Delphi中如何遍历文件夹

在Delphi中，可以使用FindFirst和FindNext函数来遍历文件夹。以下是示例代码：

过程 遍历文件夹(const AFolder: 字符串);var SR: TSearchRec; IsFound: Boolean;begin span> //搜索文件夹中的第一个文件/文件夹 IsFound := FindFirst (AFolder + '\* ', faAnyFile, SR) = 0; while IsFound do 开始 // 忽略“.”和“..”文件夹 if (SR.名称 <> '.') 和 (SR.名称 <> '..') 然后 开始  if (SR.Attr 和 faDirectory) = faDirectory 然后 begin //当前找到的文件夹 Writeln('文件夹：'，AFolder + '\' + SR.名称); // 递归遍历子文件夹 TraverseFolder(AFolder + '\' + SR.名称); 结束 其他 开始 //当前找到的是文件 Writeln('文件：', AFolder + '\' + SR. 名称); 结束; 结束 ; // 继续搜索下一个文件/文件夹 IsFound := FindNext(SR) = 0; 结束; //关闭搜索 FindClose(SR);end;/ / 使用示例程序 TForm1。Button1Click（发件人：TObject）;var< /span> 文件夹路径：字符串;开始 文件夹路径 := ' C:\YourFolderPath';旅行rseFolder(FolderPath);end;

在上面的示例代码中，TraverseFolder过程将是递归遍历指定文件夹下的所有文件和子文件夹并输出其路径。您可以根据需要修改代码以执行其他操作。