Page 1 of 1
Forum

Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!

Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.

Please note that switching to another language when reading a post will not bring you to the same post, in Dutch, as there is most likely no translated for the post!





Share:
Notifications
Clear all

Lazarus Pascal - Is a directory empty?  

  RSS

Hans
 Hans
(@hans)
Prominent Member Admin
Joined: 7 years ago
Posts: 829
March 18, 2020 8:19 AM  

For one of my projects, I needed to determine if a directory was empty, and I couldn't find a function for this.
So I wrote a tiny procedure that does this for us, and it should cover Windows, Linux and MacOS:

function isEmptyDirectory(aDir:string):boolean;
var
SearchRecResult: TSearchRec;
begin
Result := FindFirst(IncludeTrailingPathDelimiter(aDir) + '*', faAnyFile, SearchRecResult)<>0;

while (SearchRecResult.Name = '.') or (SearchRecResult.Name = '..') do
Result := FindNext(SearchRecResult) <> 0;;

FindClose(SearchRecResult);
end;

ReplyQuote
Share: