FinishDirectory

Синтаксис

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

Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator