Hi Leute,
ich versuche schon seit einer Weile ein Programm zu schreiben, welches ein Backup von Benutzerdaten erstellt.
Eigentlich ein recht triviales Problem.
Nutze ich die SHFileOperation-Funktion bzw die
doFileWork-Procedure von Sakura, FileStreams, oder die Funktion CopyFile werden manche Dateien nicht kopiert, weil sie nicht geöffnet werden können.
Hier der Quelltext für dir Streams:
Delphi-Quellcode:
function ThreadCopy.CopyFile(Source, Dest: String): Boolean;
var F, T: TFileStream;
begin
try
Result := true;
try
F := TFileStream.Create(Source, fmOpenRead);
T := TFileStream.Create(Dest, fmOpenWrite);
T.CopyFrom(F, 0);
finally
F.Destroy;
T.Destroy;
end;
except
Result := false;
end;
end;
Werden Die Dateien mittels Windows von Hand kopiert, funktioniert das Kopieren fehlerlos.
Alle zu kopierenden Dateien sind geschlossen !
kann man das irgendwie einrichtren dass
alle Dateien kopiert werden?
Gruß
Manuel