Mega Code Archive

 

Categories / Delphi / Examples

 

Filesize

CODE TO FIND THE SIZE OF A FILE function GetFileSize(myFileName: String); var myFile: file of Byte; sizeOfFile : Longint; begin AssignFile(myFile, myFileName); Reset(myFile); sizeOfFile := FileSize(myFile); CloseFile(myFile); result := sizeOfFile; end;