Question

delphi中，如何读取一个目录中的所有文件？在线等……

现需读取目录：“c:\history data”文件夹中所有文件（该文件夹中，只包含.txt和.done文件），需对每个文件进行处理。
另，求将文件转换目录的函数（比如将c:\history data的文件转移到d:\history中）
只需要一个思路和一些基本函数就可以了……谢谢

Answer 1

procedure FileSearch(PathName:string);
var
F : TSearchRec;
Found : Boolean;
begin
ChDir(PathName);
Found := (FindFirst('*.*', faAnyFile, F) = 0);
while Found do
begin
if (F.Name = '.') or (F.Name = '..') then
begin
Found := (FindNext(F) = 0);
Continue;
end;

if (F.Attr and faDirectory)>0 then
begin
Application.ProcessMessages;
FileSearch(F.Name);
end;
//插入你的代码，F.Name就是文件名，GetCurrentDir可以得到当前目录
Found := (FindNext(F) = 0);
end;
FindClose(F);
ChDir('..\');
end;

转换目录可以用MoveFile，查一下帮助