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