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

给你个标准的能用的函数：

function GetFileSize(sFileName: string): real

var

f: TFileStream

begin

if FileExists(sFileName) then

begin

  f := TFileStream.Create(sFileName, fmOpenRead or fmShareDenyNone)

  Result := f.Size    //返回文件大小

  f.Free

end

else

  Result := 0

end

得到的大小就是 bit，想转成KB 就 /1024 想转成MB 就 除2个1024

db是dbase

数据库文件

，直接用记事本就可以打开,打开后可以看见里面的内容,但排列不规律,你必须得知道读取数据的方法才可以正确读取,(比如第一个字段要读取多少个字节,或者第一个字段需要从哪个位置开始读),如果使用程序读取的话,直接使用文件名.db就可以了.

可以用DBASE数据库打开，也可以用DELPHI等第三方开发工具！

---