Filemanager Fehler - Lösung gefunden?

[DarkItachi]

Krass, funktioniert!
Verstanden und angewendet!^^

Da wäre ich niemals drauf gekommen!

EDIT:

Gut danke, dank diesen Code konnte ich auch noch den Ordner Code variieren!
Doch was jetzt?

Delphi-Quellcode:

procedure ListFileDir(Path: string);
var
  SR: TSearchRec;
  dview: TListItem;
begin

      if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin
   if SR.Name <> '.' then begin // Benutze ich, um die zwei Ordner wegzukriegen! (Screenshot)
    repeat
      if (sr.Attr and faDirectory = faDirectory) then
      begin
        dview:= Form2.DirFileView.Items.Add;
        dview.ImageIndex:= 0;
        dview.Caption:= SR.Name;
      end;

    until FindNext(SR) <> 0;
    FindClose(SR);
  end;  
 end;
end;

Jetzt listet er nur noch Ordner in einem Laufwerk Root aber in einem anderen Ordner wird kein Ordner erstellt!
Wenn ich if SR.Name <> '.' then begin wegnehme, funktionierts!

Ich versuche doch aber nur diese zwei Ordner wegzukriegen!

Was mache ich falsch? Thx again!