Schleife

[thkerkmann]

Hi,

wirklich besser ist das auch nicht

Delphi-Quellcode:

begin
  for HDD:='C' to 'Z' do
    if SearchForFile(HDD + ':\', Filename, APathFound) then
    begin
       repeat
          DeleteFile(ApathFound+Filename);
       until not SearchForFile(HDD + ':\', Filename, APathFound);
    end
    else
       WriteLn(myFile, Filename + ' is not available on ', HDD);

  CloseFile(myFile);
end;

Gruss