У меня вот есть пример который подсчитывает размер всех по отдельности находящихся файлов в папке:
Graphics 1024,768,32,2
SetBuffer BackBuffer()
SetFont(LoadFont("Arial",18))
Type ListFiles
Field FileName$
Field FileSize#
End Type
myDir=ReadDir("ui/")
Repeat
FileName$=NextFile$(myDir)
If FileName$="" Then Exit
If FileType("ui/"+FileName$) <> 2 Then
f.ListFiles=New ListFiles
f\FileName=FileName
f\FileSize=FileSize("ui/"+FileName)
Print f\FileName+" - "+f\FileSize/1024/1024+" Мб"
End If
Forever
CloseDir myDir
Repeat
Flip()
Until KeyHit(1)
End
У меня вопрос в том как подсчитать всю сумму файлов в папке????
|
Кому непонятно прошу скопировать код себе и создать папку UI
|