ich stehe mal wieder auf dem schlauch
ich würde gerne einen Ordner Kopieren (mit Inhalt).
Irgendwie funktioniert mein Gedankengang gar nicht
kann mir da jemand mal auf die Sprünge helfen?
Code: Alles auswählen
Var mem : TMemoryStream;
cID : String;
cQuelle : String;
cZiel : String;
cTag : String;
begin
mem := TMemoryStream.Create;
cQuelle := DSJOB.DataSet.FieldByName('QuellPfad').ASString;
cZiel := DSJOB.DataSet.FieldByName('ZielPfad').ASString;
cTag := FormatDateTime('yyyymmdd', now);
cZiel := cZiel+'\'+cTag;
cQuelle := cQuelle+'\';
mem.LoadFromFile(cQuelle);
mem.SaveToFile(cZiel);
mem.Free;