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!
Ad Blocking Detected
Please consider disabling your ad blocker for our website.
We rely on these ads to be able to run our website.
You can of course support us in other ways (see Support Us).
Lazarus Pascal - Is a directory empty?
Delphi, Lazarus, Free Pascal
(@hans)
Famed Member Admin
Joined: 10 years ago
Posts: 2459
Topic starter
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;
Ad Blocking Detected
Please consider disabling your ad blocker for our website.
We rely on these ads to be able to run our website.
You can of course support us in other ways (see Support Us).