NextDirectoryEntry

Синтаксис

Function NextDirectoryEntry(ByVal HandleDirectory As integer) As Integer

Описание

Возвращает результат отличный от нуля, если найден следующий каталог или файл

Параметры

HandleDirectory - хендл поиска файлов

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Dim As String Directory = "C:\"
#Else
Dim As String Directory = "/"
#EndIf
Var Dir_=ExamineDirectory(Directory, "*.*")
Do
  Print DirectoryEntryName(Dir_) & " "& DirectoryEntryDate(Dir_,1)
Loop While NextDirectoryEntry(Dir_)
FinishDirectory(Dir_)
Sleep

Created with the Personal Edition of HelpNDoc: Free Web Help generator