Verzeichnisse kopieren

[six1]

du solltest auch den richtigen Button für Code anklicken...

Image2.jpg (4.53 KiB) 853 mal betrachtet

[fliegermichl]

(Schade, dass die Leerzeichen zum Zeilenbeginn nicht angezeigt werden; das macht es etwas unübersichtlicher)

Wenn du statt <quote> <code=laz> schreibst, dann werden die Leerzeichen angezeigt und der Quelltext auch farblich hervorgehoben

[fliegermichl]

six1 war schneller

[Aliobaba]

... und mit externen Programmaufrufen habe ich es auch schon mal versucht (gelöst?)

Code: Alles auswählen

Function Verzeichnis_kopieren ( A_Verzeichnis , A_Zielverzeichnis , A_Meldung_1 , A_Meldung_2 : string ) : Integer;
var
    BoxStyle ,  Reply : integer;
    AProcess: TProcess;
begin
  {$IFDEF WINDOWS}
    if not DirectoryExists (A_Verzeichnis) then
    begin
       Showmessage('Dieses Quellverzeichnis gibt es nicht!');
       exit;
    end;
  {$ENDIF}
  
  if Fileexists (A_Zielverzeichnis) then
  begin
    with Application do
    begin
     BoxStyle := MB_ICONQUESTION + MB_YESNO;
     Reply := MessageBox(PChar('Dieses Zielverzeichnis gibt es bereits!'+LineEnding+'Vorhandene Daten werden ersetzt!'+ LineEnding + LineEnding +'OK?'   ), 'Sicherheitsabfrage', BoxStyle);
     if Reply = IDYES then
           begin
           end
           else
           begin
               exit;
           end;
     end;
  end;
  if A_Meldung_1 <> '' then Showmessage( A_Meldung_1 );

  Screen.Cursor := crHourGlass;
  AProcess := TProcess.Create(nil);
  {$IFDEF WINDOWS}
    AProcess.CommandLine := 'robocopy "' + A_Verzeichnis + '" "' + A_Zielverzeichnis + '"';
  {$ENDIF}
  {$IFDEF LINUX}
    AProcess.CommandLine := 'cp -rf "'  + A_Verzeichnis + '" "' + A_Zielverzeichnis + '"'; // nicht mit RoboCopy, also kein /MIR anfügen
  {$ENDIF}

  AProcess.CommandLine := StringReplace ( AProcess.CommandLine , '/' , A_Slash , [rfReplaceAll] );
  AProcess.CommandLine := StringReplace ( AProcess.CommandLine , '\' , A_Slash , [rfReplaceAll] );

  {$IFDEF WINDOWS}
      AProcess.CommandLine := AProcess.CommandLine + ' /MIR'; // jetzt erst!! sonst wird der Slash geändert: muss immer so sein "/MIR"
  {$ENDIF}

   AProcess.Options := AProcess.Options + [poWaitOnExit];  //, poUsePipes]; //+ [poWaitOnExit];  //, poUsePipes];
   AProcess.Execute;
   AProcess.Free;
   Screen.Cursor := crDefault;
   if A_Meldung_2 <> '' then Showmessage( A_Meldung_2 );
end;                    

[af0815]

Als Code formatieren hilft. Du hast es als Quote formatiert.

Edit ich war viel zu langsam