// Project Example: GetFileSize()
// Created: 2015-01-19

Setvirtualresolution(640,480)
ResetTimer()
//Show Current Folder and Files
count=0
Print("Current Folder: "+GetFolder())
Render()
fn$=GetFirstFile()

while fn$<>""
	Id=OpenToRead(fn$)
	size=GetFileSize(Id)
	CloseFile(Id)
    Print(Spaces(2)+fn$+Spaces(2)+Str(size)+" Bytes")
    Inc count
    fn$=GetNextFile()
endwhile
Print("Total Number of Files: "+Str(count,0))
Sync()
Repeat
Until Timer()>20
End