Mir ist keine solche Lösung bekannt. Aber wenn Du lediglich die Dateiendung als Unterscheidungskriterium verwendest und Dir Performance und Ressourcen nicht unbedingt das wichtigste sind, könntest Du mithilfe mithilfe von (nicht getestet)
Delphi-Quellcode:
with TStringList.Create do
try
LoadFromFile(AFileName);
Result := Count;
finally
Free;
end;
die Zeilen einer Textdatei ermitteln. Die so erreichnete Zahl könntest Du dann in einem assoziativen Array ablegen (notfalls ebenfalls über eine StringList mit einem Cast auf der Object-Eigenschaft) und mit jedem "Treffer" auf derselben Endung addieren.
Die Menge kannst Du mithilfe einer hier mehrfach diskutierten rekursiven Dateisuche ermitteln.
Alles klar?