Hallo Delphi-Praxis Mitglieder ich treibe mich hier schon eine ganze weile im Forum herum und habe nun ein Problem bei dem ich irgendwie nicht auf die Lösung komme.
Ich bin ziemlicher Delphi-Neuling also nichts großartiges erwarten...
Mein Problem:
Ich schreibe ein Backup Programm (sehr einfach gehalten für einen älteren Herren) bei dem ich mehrere Verzeichnisse in ein Verzeichniss kopieren will. Kein Kompression oder ähnliches nötig.
Ich benutze eine Funktion die ich im Internet gefunden habe
Delphi-Quellcode:
function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;
Ich rufe die Funktion so auf:
Delphi-Quellcode:
if CopyDir(Quelle, Ziel + '\') = True then
MessageDlg('Daten gesichert!', mtInformation, [mbOK], 0);
Quelle und Ziel sind String Variablen.
Geht aber nur mit einem Verzeichniss und so nützt mir das nicht viel.
Ich habe das Programm so weit das man Verzeichniss auswählen kann, diese in einer Stringlist gespeichert werden und in
einer Datei.
Wie kann ich die einzelnen Verzeichnisse die in der StrinList stehen in einen einzelnen Ordner sichern?
Ist vielleicht garnicht mal so schwer, aber ich komme nicht drauf
Danke schonmal im vorraus
Matthias