home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPHIDE.ZIP / HIDDEN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  503 b   |  24 lines
  1. program Hidden ;
  2.  
  3. { Lists hidden files or subdirectories in the current directory }
  4.  
  5. uses Dos ;
  6.  
  7. var
  8.     THE_FILE : SEARCHREC ;
  9.  
  10. begin
  11.     writeln ('_____ Hidden Files _____ Andy Moore _____') ;
  12.     writeln ;
  13.     FindFirst('*.*',ANYFILE,THE_FILE) ;
  14.     while DosError = 0 do
  15.         begin
  16.             if (THE_FILE.ATTR and DOS.HIDDEN) <> 0 then
  17.                 begin
  18.                     write(THE_FILE.NAME) ;
  19.                     if (THE_FILE.ATTR and DOS.DIRECTORY) <> 0 then write('\') ;
  20.                     writeln ;
  21.                 end ;
  22.             FindNext(THE_FILE) ;
  23.         end ;
  24. end.