ch17l02.txt

来自「《Web编程专家指南》」· 文本 代码 · 共 27 行

Listing 17.2 List all files that have changed since lastVisitTime.

GetDir(0, thisDir);
ChDir(htdocsDir);
iFoundFile := FindFirst(htdocsDirMask, faAnyFile, searchRec);
while iFoundFile = 0 do
begin
   if(FileDateToDateTime(searchRec.Time) > lastVisitTime) then
   if(searchRec.Name <> '.') then
   if(searchRec.Name <> '..') then
   if(searchRec.Attr <> faDirectory) then
   begin
      outputStrings.Append('<LI><A HREF='
         + htdocsRelativeDir
         + searchRec.Name
         + '>');
      outputStrings.Append(searchRec.Name
         + ' was changed on '
         + DateToStr(FileDateToDateTime(searchRec.Time))
         + '</A></LI>');
   end;
   iFoundFile := FindNext(searchRec);
end;
FindClose(searchRec);
ChDir(thisDir);