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 no translation for that post!



Share:
Notifications
Clear all

Lazarus Pascal - Is a directory empty?

1 Posts
1 Users
0 Likes
2,429 Views
 Hans
(@hans)
Noble Member Admin
Joined: 9 years ago
Posts: 2234
Topic starter  

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: