FindFirst usw unterschlagen Verzeichnisse

[ustra]

Hi,

Du rufst findnext einmal zu viel auf. So ist die Schleife richtig:

Code:

    repeat 
    findnext(verzeichnisse); 
    if verzeichnisse.Attr = 16 then 
    listenmemo.Lines.add(verzeichnisse.name); 
    until findnext(verzeichnisse) <> 0;

Gruss Ulrich