删除目录下最早创建的那个文件夹

Question

目录下有5个文件夹,需要删除最早创建的那个文件夹

Answer 1

最简单的做法，用filelistbox定位到文件夹，再count一下。

Answer 2

获取文件夹的创建时间可参看下面例子
---------------------------------------
var
  data: WIN32_FILE_ATTRIBUTE_DATA;
  systime: SYSTEMTIME;
  local: FILETIME;
begin
  if(not GetFileAttributesEx('C:\文件夹', GetFileExInfoStandard, @data)) then
     RaiseLastWin32Error();  FileTimeToLocalFileTime(data.ftCreationTime, local); //转换为本地时间否则为标准时间
  FileTimeToSystemTime(local, systime);  with systime do
     ShowMessage(Format('%d-%d-%d %d:%d:%d', [wYear, wMonth, wDay, wHour, wMinute,     
     wSecond]));
end;