Mega Code Archive
FirstLast changed File in Folder
<![CDATA[
Title: First/Last changed File in Folder
Question: Sometimes its nessessary to know which File of an Folder was changed at the last.
Answer:
Sometimes its nessessary to know which File of an Folder was changed at the last. I wrote this function below. It can give you the File with the oldesd content too, if you set the parameter first := True. For the comparing I've used the API - Function CompareFileTime. If you wants to know the oldes or youngest created file or the last/first accessed file see the comments in the function.
Enjoy it.
Function GetLastOrFirstChangedFileOfFolder(First : Boolean; Folder : String): String;
var Ft1, Ft2 : TFileTime; sr :TSearchrec; what, Res : Integer;
begin
if not DirectoryExists(Folder) then exit;
if Folder[Length(Folder)] '\' then Folder := Folder + '\';
if First then What := 1 else What := -1;
res := FindFirst(Folder+ '*.*', faAnyFile, sr);
ft1 := sr.FindData.ftLastWriteTime;
//ft1 := sr.FindData.ftCreationTime; for the first/last created
//ft1 := sr.FindData.ftLastAccessTime; for the first/last access
Result := sr.Name;
while res = 0 do
begin
Ft2 := sr.FindData.ftLastWriteTime;
//ft1 := sr.FindData.ftCreationTime; for the first/last createt
//ft1 := sr.FindData.ftLastAccessTime; for the first/last access
if CompareFileTime(ft1, ft2) = What then begin
ft1 := Ft2;
Result := sr.Name;
end;
res := FindNext(sr);
end;
FindClose(sr);
end;
]]>