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

您好！

1）这是一个程序路厅档径，是和“网际快车”有关的一个声音提示文件。

2）这是网际快车下载完文件后播放提示音的一个声音文件，Done这个单词意为“完成了”

3）这个声音文件的后缀为wav，是常见的“音波格式碰渣”，可扮吵乱高保真的提供高品质声音。

希望可以帮到您！

while循环颤笑结构如下局运：

while 条件

do

...

done

应该前面还有个do的。这是固定结构，满足条件就会一直循环下去。

因为最后有输入重定向符号<，将整个while循环条件的输入指定为config变量定义的文件。所以，read会逐行读取这个文件中的字段（每行两个字段）分别作为server和ip。

需要注意的是，config.ini文件桐洞梁中的标题行也会被读入。

man read，说明中可以看到，如果读成功的话，read返回读取的字节数；读到文件的末尾则返回0。而对于while来讲，条件为0表示为false，则退出循环。

---