Описание функции
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")