Iterating a directory

Answers

• Options

  edoderoo Member Posts: 89

  2020-02-07

  Googled, and found a solution from 12 years ago:
  
  PROCEDURE GetFileSize@1000000000(FileName@1000000000 : Text[1024]) FileSize : Integer;
  VAR
  InFile@1000000001 : File;
  BEGIN
  InFile.OPEN(FileName) ;
  FileSize := InFile.LEN ;
  InFile.CLOSE ;
  END;
  

  IF User.Loves('Edo') THEN ok() ELSE currReport.genSkip;

  0
• Options

  RockWithNAV Member Posts: 1,139

  2020-02-12

  Agree with what @edoderoo mentioned, If Length is giving you 0 that means its an empty file.

  Thanks
  
  Blog - rockwithnav.wordpress.com/
  Twitter - https://twitter.com/RockwithNav
  Facebook - https://facebook.com/rockwithnav/

  1