DirectoryEntrySize

Синтаксис

Function DirectoryEntrySize(ByVal HandleDirectory As integer) As ULongInt

Описание

Возвращает размер текущей директории, которая перечисляется с помощью функций ExamineDirectory () и NextDirectoryEntry ()

Параметры

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_) & " "& DirectoryEntrySize(Dir_)
Loop While NextDirectoryEntry(Dir_)
FinishDirectory(Dir_)
Sleep

Created with the Personal Edition of HelpNDoc: Free help authoring environment