gpt4 book ai didi

delphi - 通过 "modified date"确定文件夹中的哪个文件是最新的?

转载 作者:行者123 更新时间:2023-12-03 15:22:35 25 4
gpt4 key购买 nike

我需要扫描特定文件夹中的最新文件(基本上检查修改日期以查看哪个是最新的),但请记住这些文件具有随机名称。这是我到目前为止所得到的:

procedure TForm1.Button1Click(Sender: TObject);
begin

ftp.Host := 'domain';
ftp.Username := 'username';
ftp.password := 'password';
ftp.Connect;
ftp.Put('random-filename.ext'); //This is where it should grab only the latest file
ftp.Quit;
ftp.Disconnect;

end;

这可能吗?

谢谢!

最佳答案

假设 OP 想要扫描特定的本地文件夹并找到最近修改的文件,这里有一个非常简单的函数来做到这一点:

function GetLastModifiedFileName(AFolder: String; APattern: String = '*.*'): String;
var
sr: TSearchRec;
aTime: Integer;
begin
Result := '';
aTime := 0;
if FindFirst(IncludeTrailingPathDelimiter(AFolder) + APattern, faAnyFile, sr) = 0 then
begin
repeat
if sr.Time > aTime then
begin
aTime := sr.Time;
Result := sr.Name;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

AFolder 应该是要扫描的文件夹的绝对或相对路径,APattern 是可选的,应包含标准 DOS 模式,指定应检查哪些文件。如果没有为第二个参数指定任何内容,则假定为 *.*(所有文件)。结果将是具有最近修改日期的文件名。

关于delphi - 通过 "modified date"确定文件夹中的哪个文件是最新的?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8292424/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com