9 lines
266 B
Text
9 lines
266 B
Text
|
print fileSize(DefaultDir$,"input.txt") ' current default directory
|
||
|
|
print fileSize("","input.txt") ' root directory
|
||
|
|
|
||
|
|
function fileSize(dir$,file$)
|
||
|
|
open dir$;"\";file$ FOR input as #f
|
||
|
|
fileSize = lof(#f) ' Length Of File
|
||
|
|
close #f
|
||
|
|
end function
|