Schleife

[Klaus01]

Delphi-Quellcode:

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

vielleicht geht es so?

Gruesse
KLaus