home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / DOS.SWG / 0002_Get Filesize-Filetime.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-21  |  478 b   |  20 lines
  1. { >>> Does anyone know how I can get the size of a file? }
  2.  
  3. function GetFileTime(FileName: string): longint;
  4. var
  5.   Srec: SearchRec;
  6. begin
  7.   FindFirst(FileName, $01+$04+$20, Srec);
  8.   if DosError = 0 then GetFileTime := Srec.Time
  9.   else GetFileTime := 0;
  10. end;
  11.  
  12. function  GetFileSize(FileName: string): longint;
  13. var
  14.   Srec: SearchRec;
  15. begin
  16.   FindFirst(FileName, $01+$04+$20, Srec);
  17.   if DosError = 0 then GetFileSize := Srec.Size
  18.   else GetFileSize := 0;
  19. end;
  20.