Ordner im Windows Verzeichnis suchen

[Tpercon]

Hi

Ich möchte in einem TreeView den Pfad (z.B.: C:\Windows\Anwendungsdaten\Adobe\) anzeigen, den ich zuvor gespeichert habe. Dazu habe ich folgenden Code geschrieben:

Code:

z:=0;
While AnsiPos('\',pfad)<>0 do
 begin
  i:=AnsiPos('\',pfad);
  s:=copy(pfad,1,i-1);
  For i:=z to TreeView1.Items.Count-1 do
   If TreeView1.Items.Item[i].Text=s
    then
     begin
      TreeView1.Items.Item[i].Expand(False);
      z:=i+1;
      Break;
     end;
  pfad:=copy(pfad,Length(s)+2,Length(pfad)-Length(s)-1);
 end;

Warum funktioniert das bei manchen Ordnern im Windows Verzeichnis nicht, der Ordner ist definitiv da?

Gruß