DirectoryEntrySize()

Синтаксис

Size.q = DirectoryEntrySize(#Directory)

Описание

Возвращает размер текущей записи (если это файл) указанного перечисления, определяемой функциями ExamineDirectory() и NextDirectoryEntry(). Если текущая запись является каталогом - функция возвращает 0.

Параметры

#Directory

Номер идентифицирующий перечисление записей каталога, которое было создано вызовом функции ExamineDirectory().

Возвращаемое значение

Возвращает размер текущей записи указанного перечисления, для файла - размер в байтах, для каталога - всегда 0.
Для определения размера каталога сложите размеры всех файлов каталога (включая все файлы вложенных каталогов).

Пример (Фран.)

Repertoire$ = GetHomeDirectory() ; Создаёт перечисление всех файлов и папок домашнего каталога.
If ExamineDirectory(0, Repertoire$, "*.*")
    While NextDirectoryEntry(0)
        If DirectoryEntryType(0) = #PB_DirectoryEntry_File
            Type$ = " [Файл] "
            Size$ = " (Размер : " + DirectoryEntrySize(0) + ")"
        Else
            Type$ = " [Каталог] "
            Size$ = "" ; Для каталога размер напрямую не определяется.
        EndIf

        Debug Type$ + DirectoryEntryName(0) + Size$
    Wend
    FinishDirectory(0)
EndIf

См. также

ExamineDirectory(), NextDirectoryEntry(), DirectoryEntryType(), DirectoryEntryName(), DirectoryEntryAttributes(), DirectoryEntryDate()

Поддерживаемые OS

Все