取得一个文件夹下的文件,并保存在一个文件中.

最新推荐文章于 2021-08-07 17:46:31 发布

原创最新推荐文章于 2021-08-07 17:46:31 发布 · 962 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#recursion #string #function #file

Delphi 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种将文件时间转换为日期时间的方法，并提供了一个获取文件相对于当前路径的相对路径的函数。此外，还详细解释了如何遍历目录并获取指定路径下所有文件的列表，包括文件的完整路径及最后修改时间。

//文件时间转DateTime
function FileTimeToDateTime(const AFileTime:TFileTime):TDateTime;
var
SYSTime:TSystemTime;
begin
if FileTimeToSystemTime(AFileTime,SYSTime) then
Result:=SystemTimeToDateTime(SYSTime)
else Result:=0;
end;

function PathRelativePathTo(pszPath:LPSTR; pszFrom:LPCSTR; dwAttrFrom:DWORD;
pszTo:LPCSTR; dwAttrTo:DWORD):BOOL; stdcall;
external "shlwapi.dll " name "PathRelativePathToA ";

//取得相对路径
function GetFileRelativePath(CurPath:string; const Dest:string; const NoDot:Boolean=False):string;
var
ResultPath: array[0..1024] of Char;//路径转换结果
begin
CurPath:=ExtractFileDir(CurPath)+ " ";
if PathRelativePathTo(ResultPath, PChar(CurPath), FILE_ATTRIBUTE_DIRECTORY,
PChar(Dest), FILE_ATTRIBUTE_DIRECTORY) then
begin
Result := ResultPath;
if NoDot then
Result:=Copy(Result,3,Length(Result)-2);
end
else
Result := Dest;
end;

//得到文件列表
procedure GetFileList(const aDir,aFilter:string; const FileName:TFileName;AbSolutePath:Boolean=True;Recursion:Boolean=False);
{aDir:文件路径. aFilter:通配符(所有文件则*.*).FileName:输出文件名;AbSolutePath:使用绝对路径;Recursion:是否递归搜索}
var
aList:TStringList;

procedure AddFiles(TmpDir:string);
var
SR:TSearchRec;
Dir:string;
FileDir:string;
begin
Dir:=IncludeTrailingPathDelimiter(TmpDir);
if AbSolutePath then
FileDir:=Dir
else FileDir:=GetFileRelativePath(IncludeTrailingPathDelimiter(aDir),Dir,True);
if FindFirst(Dir+aFilter,faAnyFile,SR)=0 then
begin
repeat
if (SR.Name < > ". ") and (SR.Name < > ".. ") then
begin
if SR.Attr=faDirectory then
begin
if Recursion then
AddFiles(Dir+SR.Name);
end
else
aList.Add(FileDir+SR.Name+#9#9+
FormatDateTime( "yyyy-mm-dd hh:nn:ss ",FileTimeToDateTime(SR.FindData.ftLastWriteTime)));
end;
until FindNext(SR) < >0;
SysUtils.FindClose(SR);
end;
end;
begin
aList:=TStringList.Create;
try
AddFiles(aDir);
aList.SaveToFile(FileName);
finally
aList.Free;
end;
end;

//使用方法:
procedure TForm1.btn2Click(Sender: TObject);
begin
//文件保存在D:/abc.txt
GetFileList(Edit1.Text, "*.* ", "D:/abc.txt ",chkbx2.Checked,chkbx1.Checked);
end;