NextDirectoryEntry()

Синтаксис

Result = NextDirectoryEntry(#Directory)

Описание

Переходит к следующей записи в указанном перечислении, созданном функцией ExamineDirectory(). Эта команда позволяет шаг за шагом пройти все записи найденные в данном перечислении, первый вызов NextDirectoryEntry() делает текущей самую первую запись данного перечисления.

Параметры

#Directory

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

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

Возвращает ненулевое значение, если в данном перечислении за текущей записью была найдена следующая запись, в противном случае 0.

Комментарии

Подробную информацию о текущей записи используемого перечисления можно получить с помощью функции:

DirectoryEntryType() - тип текущей записи (файл или каталог)
DirectoryEntryName() - имя текущей записи
DirectoryEntrySize() - размер текущей записи (если это файл, для каталога всегда 0)
DirectoryEntryDate() - требуемая дата текущей записи
DirectoryEntryAttributes() - атрибуты текущей записи

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

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

См. также

ExamineDirectory(), DirectoryEntryType(), DirectoryEntryName(), DirectoryEntrySize(), DirectoryEntryAttributes(), DirectoryEntryDate().

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

Все