是這樣子的
我在ａ資料夾下面有１０幾個文字檔
然後想要讀取它們每一個的建立日期
以做排序
請問有辦法去讀取到每個文字檔的建立日期嗎＠＠？

請問大大們有辦法解決這問題嗎＞"＜

編輯記錄

[code delphi]
procedure TForm1.Button2Click(Sender: TObject);
var
FileName: string;
fh, FileDate: Integer; //File Handle
FileDateTime: TDateTime;
begin
FileName := 'D:\RESULT.TXT';
if FileExists(FileName) then
begin
fh := FileOpen(FileName, fmOpenRead);
if fh <> -1 then
begin
FileDate := FileGetDate(fh);
FileDateTime := FileDateToDateTime(FileDate);
Label1.Caption := FormatDateTime('YYYY-MM-DD hh:nn:ss', FileDateTime);
FileClose(fh);
end;
end;
end;
[/code]


[code delphi]
procedure TForm1.Button3Click(Sender: TObject);
var
FileName: string;
FileDate: Integer;
FileDateTime: TDateTime;
begin
FileName := 'D:\RESULT.TXT';
if FileExists(FileName) then
begin
FileDate := FileAge(FileName);
FileDateTime := FileDateToDateTime(FileDate);
Label1.Caption := FormatDateTime('YYYY-MM-DD hh:nn:ss', FileDateTime);
end;
end;
[/code]


[code delphi]
type
TSortFileName = class
public
FileName: string;
FileDateTime: TDateTime;
function Key: string;
end;

function TSortFileName.Key: string;
begin
Result := FormatDateTime('YYYY-MM-DD hh:nn:ss', FileDateTime);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
O: TSortFileName;
Path: string;
F: TSearchRec;
L: TStringList;
I: Integer;
begin
Path := 'D:\A';
L := TStringList.Create;
try
//Make TStringList Sorted...
L.Sorted := True;

//Find FileNames and Sort it using TStringList...
if FindFirst(Path '\*.*', faAnyFile, F) = 0 then
try
repeat
if (F.Name <> '.') and (F.Name <> '..') then
begin
O := TSortFileName.Create;
O.FileName := Path '\' F.Name;
O.FileDateTime := FileDateToDateTime(FileAge(O.FileName));
L.AddObject(O.Key, O);
end;
until FindNext(F) <> 0;
finally
FindClose(F);
end;

//Show Sorting Result...
ListBox1.Clear;
for I := 0 to L.Count-1 do
begin
O := TSortFileName(L.Objects[I]);
ListBox1.Items.Add(O.Key ', ' O.FileName);
end;

finally
//Free TSortFileName Objects, and TStringList itself...
for I := 0 to L.Count-1 do
L.Objects[I].Free;
FreeAndNil(L);
end;

end;
[/code]

編輯記錄

嗯嗯~~謝謝大大的回答
我趕緊來試看看
因為小弟我想要做一個類似在windows中按了右鍵有個"排列圖示->依日期"的排列方法
來排列檔案
謝謝大大的解題唷~^^