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

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

现需读取目信颂前录：“c:\history data”文件夹中所有文件（该文件夹中，只包含.txt和.done文件），需对每个文件进行处理。

另，求将文件转换目录的函数（比如将c:\history data的文件转移到d:\history中）

解析:

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，查一下帮助

var

tmpdir:stringconstmax_path=array

of

char系统路老运径：

getsystemdirectory(tmpdir,MAX_PATH)

//取得windows目州握录

c:\windows

GetWindowsDirectory(tmpdir,MAX_PATH)

//取得应用程序所在侍迹梁的路径

Vfilepath:=application.ExeName

---