10 lines
227 B
Text
10 lines
227 B
Text
|
Module ShowFileSize(filename as string) {
|
||
|
|
if exist(filename) then
|
||
|
|
print filename+" has size "+(filelen(filename))+" bytes"
|
||
|
|
else
|
||
|
|
print filename+ " not exist"
|
||
|
|
end if
|
||
|
|
}
|
||
|
|
ShowFileSize "checkthis.txt"
|
||
|
|
ShowFileSize "c:\ok.txt"
|