home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / LIST.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  1KB  |  50 lines
  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal for Linux                         █}
  4. {█      Test example for FindFirst/-Next/-Close          █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1999 Joerg Pleumann                █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9.  
  10. program List;
  11.  
  12. uses
  13.   Dos;
  14.  
  15. var
  16.   Name: string;
  17.   Info: SearchRec;
  18.   Y, M, D, H, N, S: Word;
  19.   DT: DateTime;
  20.  
  21. begin
  22.   FileSystem := fsDos;
  23.  
  24.   WriteLn('Enter a search pattern, e.g. ".\*.txt", press <Enter>)');
  25.   ReadLn(Name);
  26.  
  27.   FindFirst(Name, AnyFile, Info);
  28.  
  29.   if DosError = 0 then
  30.   begin
  31.     repeat
  32.       Write(Info.Name:20, Info.Size:10, '     ');
  33.  
  34.       UnpackTime(Info.Time, DT);
  35.       with DT do
  36.         Write(Year:4, '/', Month:2, '/', Day:2, ' ', Hour:2, ':', Min:2, ':', Sec:2, '     ');
  37.  
  38.       if Info.Attr and ReadOnly <> 0 then Write('ReadOnly ');
  39.       if Info.Attr and Directory <> 0 then Write('Directory ');
  40.  
  41.       WriteLn;
  42.  
  43.       FindNext(Info);
  44.     until DosError <> 0;
  45.  
  46.     FindClose(Info);
  47.   end;
  48. end.
  49.  
  50.