Dim errText$(17)

'0="No error"
errText$(1) ="No SD card found"
errText$(2) ="SD card is write protected"
errText$(3) ="Not enough space"
errText$(4) ="All root directory entries are taken"
errText$(5) ="Invalid filename"
errText$(6) ="Cannot find file"
errText$(7) ="Cannot find directory"
errText$(8) ="File is read only"
errText$(9) ="Cannot open file"
errText$(10)="Error reading from file"
errText$(11)="Error writing to file"
errText$(12)="Not a file"
errText$(13)="Not a directory"
errText$(14)="Directory not empty"
errText$(15)="Hardware error accessing the storage media"
errText$(16)="Flash memory write failure"
errText$(17)="Source and destination are the same!" 'MMBasic bug

Function FileSize N$
Local OpenError
If n$<>".." Then
Option Error Continue
Open N$ For input As #10
OpenError = MM.Errno
Option Error Abort
If OpenError Then
StatusMsg ("OpenError: "+errText$(OpenError))
FileSize=0
Else
FileSize=Lof(10)
Close 10
EndIf
Else
FileSize=0
EndIf
End Function

Open "YOURFILE.MOD" For input As #10
FileSize=Lof(10)
Close 10