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!