FindFirst usw unterschlagen Verzeichnisse

[s14]

Es sollte auch das aktuelle und übergeordnete Verzeichnis übergangen werden:

Delphi-Quellcode:

  if FindFirst(verz + '*.*',fadirectory, Search)= 0 then begin
  repeat
    if((search.attr and fadirectory)=fadirectory) and (search.name<>'.') and (search.name<>'..') then begin
      // Rekursion
      GetFolderCount(verz+ Search.Name + '\' + such);
    end;
  until FindNext(Search) <> 0;