DirectoryEntryName

Синтаксис

Function DirectoryEntryName(ByVal HandleDirectory As integer) As string

Описание

Возвращает имя директории или файла

Параметры

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_,3)
Loop While NextDirectoryEntry(Dir_)
FinishDirectory(Dir_)
Sleep

Created with the Personal Edition of HelpNDoc: Easily create HTML Help documents