Das ist mein Code nun, die erste Datei wird prima auf allen Laufwerken aufgelistet, ob sie da is oder nicht.. Aber dann bleibt er wieder hängen, die Schleife ist noch nich ganz richtig was mach ich falsch ?! :/
Delphi-Quellcode:
Procedure DeletingFiles(Filename:String);
begin
for HDD:='C' to 'Z' do
if SearchForFile(HDD + ':\', Filename, APathFound) then
begin
repeat
DeleteFile(ApathFound+Filename);
WriteLn(myFile, ':: '+ Filename + ' available on: ' + APathFound)
until not SearchForFile(HDD + ':\', Filename, APathFound);
end
else
WriteLn(myFile, Filename + ' is not available on ', HDD);
CloseFile(myFile);
end;