On Fri, 24 Jul 2020 00:29:10 +0200 (CEST), Michael Van Canneyt <mich...@freepascal.org> wrote:
> > >On Fri, 24 Jul 2020, Bo Berglund via fpc-pascal wrote: > >> I am using FindAllFiles in order to list the files in a directory and >> it works fine. >> >> But I also need the size and timestamp of the file so I searched the >> net for it. >> >> What I found was: >> >> var T: TDateTime; >> T := FileDateTodateTime(FileAge(filename)); >> >> But FileSize() needs a file argument to an open file! >> >> This is not what I want, I may not even be allowed to open the file. >> >> So is there a *cross-platform* way to retrieve the size of the files >> too? > >uses sysutils; > >Function GetFileSize(aFileName : String) : Int64; > >Var > Info : TSearchRec; > >begin > If FindFirst(aFileName,0,Info)=0 then > Result:=Info.SIze > else > Result:=-1; > FindClose(Info); >end; > Added to my "utils" unit. :-) Thanks! -- Bo Berglund Developer in Sweden _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
