Delphi - 从给定路径获取上次创建的文件夹名称

是否有从给定路径获取最后创建的文件夹的函数？
我想查看上次创建的文件夹，以便检查我的相机今天是否拍摄了照片。
我正在考虑的另一种方法是获取系统日期，然后开始搜索包含当前日期的文件夹。但是，如果相机日期错误，那么这种方法将不起作用!
谢谢。还有其他想法吗？

前任:

if lastcreatedfolder(dir_path):='05012016' then
showmessage('TODAY A FOLDER WAS CREATED')
else
showmessage('NO FOLDER WAS CREATED TODAY!');

最佳答案

Delphi 2010 也有 IOUtils.pas 单元。
使用 native ，最后创建的文件夹可能如下所示:

uses
  IOUtils, Types, DateUtils;

function FindLastCreatedDirectory(const APath: string): string;
var
  LastCreateTime : TDateTime;
  PathsInQuestion: TStringDynArray;
  n : Integer;
begin
  LastCreateTime := MinDateTime;
  Result := '';

  PathsInQuestion := TDirectory.GetDirectories(APath);
  for n := Low(PathsInQuestion) to High(PathsInQuestion) do
  begin
    if CompareDateTime(TDirectory.GetCreationTime(PathsInQuestion[n]), LastCreateTime) = GreaterThanValue then
    begin
      LastCreateTime := TDirectory.GetCreationTime(PathsInQuestion[n]);
      Result := PathsInQuestion[n];
    end;
  end;
end;

关于Delphi - 从给定路径获取上次创建的文件夹名称，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/34613626/