Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: FindFirst usw unterschlagen Verzeichnisse

    Delphi
    by s14, 12. Jan 2004
  Es sollte auch das aktuelle und übergeordnete Verzeichnis übergangen werden:
  
  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;