Schleife

[-187-]

Delphi-Quellcode:

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

Morgen, der Code löscht bestimmte Dateien, überprüft dann ob sie noch vorhanden sind und schreibt die dazugehörige Zeile. Mein Problem ist das er das nur bei der ersten Datei die Zeile schreibt weil das "SearchForFile" nicht ein eine Schleife eingebunden ist.

Ich hab es auch nich hinbekommen und brauche jetz eure Hilfe =) Danke