Delphi-Quellcode:
else
WriteLn(myFile, Filename + ' is not available on ', HDD) + Exit;
Warum willst Du denn hier die Schleife verlassen.
Wenn Du da die for Schleife mit break verlaesst
kannst Du nicht sicher sein das alle Laufwerke durchsucht wurden.
Gruesse
Klaus