Alle dateien von C:\ in ein Memo

[Pseudemys Nelsoni]

Moin,

ich habe eine Funktion geschrieben, die mit alle Dateien von C:\ auflisten sollte:

Delphi-Quellcode:

procedure GetFiles(const Path: string);
var
  SearchRec: TSearchRec;
  p: string;
begin
  p := path + '*.*';
  showmessage(p);
  if FindFirst(p, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      if (SearchRec.Attr and faDirectory) = faDirectory then
        GetFiles(Path + SearchRec.Name + '\')
      else Form1.Memo1.Lines.Add(SearchRec.Name);
    until
      FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

Am Anfang zum Start übergebe ich "C:\"... das showmessage sollte mir nur als hilfe dienen um zu gucken ob die Pfäde stimmen, das tun sie aber nicht....die ersten 2 Ordner werden mir richtig angezeigt, aber nachher gibt es auf einmal ordner die nur "." heissen? WIe z.b "C:\MeinOrdner\.\"...woher kommt das?