亲亲宝宝

procedure TForm1.Button8Click(Sender: TObject);
var
sr: TSearchRec;
aTempPath: String;
begin
aTempPath :=’D:\delphi\printer\*.*’; //注意后面的*。*一定要加
if FindFirst(aTempPath, faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faArchive) = sr.Attr then
begin
memo1.Lines.Add(‘文件名:’ + sr.Name +
‘大小:’ + IntToStr(sr.Size) +
‘时间:’ + DateTimeToStr(FileDateToDateTime(sr.time))
);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;

end;