ExamineDirectory

Синтаксис

Function ExamineDirectory(ByRef DirectoryName As string, ByRef Pattern As string) As Integer

Описание

Инициализирует каталог для поиска(перечисления) файлов. Возвращает хендл поиска , который в последствии используется другими функциями

Параметры

DirectoryName - имя каталога для поиска(перечисления)

Pattern - задает маску файлов для перечисления каталога. Так если будет задано *.* , то будут перечислены все файлы, включая каталоги. Если будет задано *.txt* , то будут перечислены только файлы .txt

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Dim As String Directory = "C:\"
#Else
Dim As String Directory = "/"
#EndIf
Var Dir_=ExamineDirectory(Directory, "*.*")
Var a=0
Do
  If DirectoryEntryAttributes(Dir_) And FILE_ATTRIBUTE_DIRECTORY  Then
     Print DirectoryEntryName(Dir_)
     a+=1
  endif
Loop While NextDirectoryEntry(Dir_)
? "Folders="; a
FinishDirectory(Dir_)
Sleep

Created with the Personal Edition of HelpNDoc: Produce electonic books easily