Описание функции


isEmptyFolder

Проверяет является ли папка пуста.

isEmptyFolder(Dir.s)

Параметры

Dir.s Путь проверяемой папки

Возвращаемое значение

0 - папка содержит другие папки или файлы (или объект не является папкой).
1 - папка пуста.

См. также

EmptyFoldersSearch

Пример

; AZJIO

Procedure EmptyFolders(Dir.s)
    Protected ID, Name.s, Empty
    Protected *c.Character
    ID = ExamineDirectory(#PB_Any, Dir, "*.*")
    If ID
        Repeat
            If NextDirectoryEntry(ID)
                Name=DirectoryEntryName(ID)
                If Name = "." Or Name = ".."
                    Continue
                EndIf

                If Asc(Name)
                    Empty = 0
                    Break
                EndIf
            Else
                Empty = 1
                Break
            EndIf
        ForEver
        FinishDirectory(ID)
    EndIf
    ProcedureReturn Empty
EndProcedure

Debug EmptyFolders("C:\ProgramData\Microsoft\Windows\Templates")