Dateien kopieren - Test ob vorhanden, bzw. in Gebrauch

[hgiel]

Hallo,

ich habe folgendes Problem:

Ich lese in eine Listbox Dateinamen inkl. Verzeichnis ein und möchte diese Einträge "später" als Basis für einen Kopiervorgang nutzen:

for i:=1 to listbox1.count do
begin
// COD-Datei - gemäß Auswahl - einlesen
// Kopieren der ausgewählten Datei ins TEMP-Verzeichnis
FilePathA := listbox1.items.strings[i-1]; // Pfad der zu kopierenden Datei inkl. Dateiname!
FilePathB := temp_pfad+extractfilename(listbox1.items.strings[i-1]); // Zielpfad inkl Dateiname!

if DirectoryExists(ExtractFileDir(FilePathB)) and not IsFileInUse(FilePathA) then
begin
mem := TMemoryStream.Create;
try
mem.LoadFromFile(filepathA);
mem.SaveToFile(filepathB);
finally
mem.Free;
end;
end;

if fileexists(FilePathB) then // Zieldatei erfolgreich ins TEMP-Verzeichnis kopiert und für Auswertung bereit?
begin
...


Es treten E/A Fehlermeldungen auf bzw. ein Fenster wird angezeigt mit dem Hinweis, dass die Datei nicht (zum kopieren?) geöffnet wurde, wenn das Verzeichnis zwischenzeitlich umbenannt/gelöscht oder die Datei gelöscht wurde!

Meine Frage wie und an welcher Stelle unterdrücke ich diese Hinweisfenster - das Programm soll einfach diese Datei/das Verzeichnis dann einfach NICHT berücksichtigen und mit der nächsten Datei/Verzeichnis fortfahren!

Gruß,

Heinz