8 lines
266 B
Text
8 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
|