TreeView - Explorer

[Nils_13]

Hi,

Delphi-Quellcode:

procedure FindDublicateNode(const ATreeView: TTreeView; const S: String);  
var  
  I: Integer;  
begin  
  with ATreeView do begin  
    for I := 0 to Items.Count - 1 do begin  
      if Items[I].Text = S then begin  
        ShowMessage(S + ' existiert schon!');  
        Exit;  
      end;  
    end;  
  end;  
end;

Damit sollte man einen neuen TreeView Node erstellen, nur wie zeige ich die alle Dateien oder Ordner, die sich auf der Festplatte befinden an?