kopiere alles aber überschreibe nichts

entsel

Servus zusammen

Manche Leute tun sich mit dem Computer schwer und ich hab (blöderweise?) in den Raum gestellt, mit einem Script zu helfen, mich dabei aber wohl zu weit aus den Fenster gelehnt (vielleicht auch, weil ich schon etwa 5 Jahre nix mehr programmiert habe?).

Es sollen Daten von einer Speicherkarte (Registrierkassa) auf eine ext. Festplatte kopiert werden. Auf der Karte gibt es Jahresordner, z.B. "g:\2018\". Dieser Ordner soll jeweils kopiert werden - mit all seinen Unter- bzw. Unterunterordnern und mit allen deren Dateien. Aber bereits gesicherte, gesunde Daten sollen nicht mit eventuell beschädigten Dateien/Ordner von der Karte überschreiben werden (sensibler Umgang mit Speicherkarte fraglich).

Der Kopiervorgang sollte daher mit den Parametern "kopiere alles aber überschreibe nichts" laufen.

1. Dircopy kann das aber nicht und auch bei xcopy oder Robocopy hätte ich diese Möglichkeit jetzt nicht gesehen - oder gibts die Möglichkeit doch, weil so aussergewöhnlich scheint mir die Aufgabe auch nicht.

2. Da die Sicherung am Monats-/Quartalsende erfolgen soll hab ich's übers Datum probiert - kopiere alle Dateien (mit Ordnerstruktur), die im Zeitraum erstellt wurden.

Auf "g:\2018\" hab ich einige Ordner/Dateien angelegt (mit den entsprechenden Erstelldaten), da ich die Originalkarte nicht zur Verfügung habe. Ich hoffe, dass dort die Ordner/Dateien entsprechend angelegt werden.

Code

$von = 20180301
$bis = 20180331
RunWait(@ComSpec & " /c " & "robocopy.exe", "g:\2018\" & "f:\sicherung\2018\" & " /ETA /MAXAGE:" & $von & " /MINAGE:" & $bis)

Es scheint, als ob robocopy zwar gestartet würde - etwas (ein DOS-Fenster?) blitzt kurz auf - aber es wird nichts kopiert.

Bin mir aber auch nicht sicher, ob die obige Syntax stimmt.

3. Einlesen der Ordner/Dateistruktur und kopieren mit Filecopy (flag-8) - hätte gehofft, das Einlesen geht mit _FileListToArray - das liest aber nur eine Ordnerebene - also auch nix.

Nun hoffe ich auf Eure Unterstützung - Ideen? Hinweise?

SG entsel

**alpines**

Zitat von entsel

1. Dircopy kann das aber nicht

Zitat von DirCopy

$FC_NOOVERWRITE (0) = (default) do not overwrite existing files

Wieso sollte das nicht funktionieren?

Sonderbaar

Zitat von entsel

$von = 20180301 $bis = 20180331 RunWait(@ComSpec & " /c " & "robocopy.exe", "g:\2018\" & "f:\sicherung\2018\" & " /ETA /MAXAGE:" & $von & " /MINAGE:" & $bis)

Eventuell über ein Batch-Datei mit einem PAUSE als abschluss? Dann sollte das Fenster aufbleiben und du zumindest in Erfahrung bringen was ihm da nicht passt?

entsel

Danke für die Antworten.

Bei meinen Versuchen hat Dircopy einen Ordner nicht mehr "angerührt" wenn dieser schon vorhanden war - also auch keine neuen Unterordner/Dateien dort hinein kopiert - oder hab ich da was übersehen?

Batch-Datei - ist schon mal ein Schritt weiter.

**alpines**

Zitat von entsel

Bei meinen Versuchen hat Dircopy einen Ordner nicht mehr "angerührt" wenn dieser schon vorhanden war - also auch keine neuen Unterordner/Dateien dort hinein kopiert - oder hab ich da was übersehen?

Ne, die Dokumentation ist einfach miserabel für die Funktion.

Wenn du es in AutoIt implementieren willst könntest du _FileListToArrayRec nehmen und bei jeder Datei prüfen ob sie existiert.

Zitat von entsel

RunWait(@ComSpec & " /c " & "robocopy.exe", "g:\2018\" & "f:\sicherung\2018\" & " /ETA /MAXAGE:" & $von & " /MINAGE:" & $bis)

Deine Parameter sind falsch, du lässt keine Leerzeichen zwischen deinen Pfadangaben.

Lass dir mal die Parameter für robocopy in der Konsole ausgeben und füge sie dann in die CMD ein und du siehst den Fehler.

**Musashi**

Hallo entsel !

Zitat von entsel

Bei meinen Versuchen hat Dircopy einen Ordner nicht mehr "angerührt" wenn dieser schon vorhanden war - also auch keine neuen Unterordner/Dateien dort hinein kopiert - oder hab ich da was übersehen?

Zitat von alpines

Ne, die Dokumentation ist einfach miserabel für die Funktion.

Bzgl. des Verhaltens von DirCopy gab es vor einiger Zeit bereits eine Diskussion im Forum :

Merkwürdiges Verhalten auch bei DirCopy ?
Möglicherweise hilft Dir der Thread weiter.

Alternativ ist die Lösung mittels robocopy in deinem Fall aber wirklich die einfachste Variante.

Gruß Musashi

entsel

Stimmt, das Leerzeichen hat gefehlt, aber auch so:

Code

RunWait(@ComSpec & " /c " & "robocopy.exe", "g:\2018\" & " " & "f:\sicherung\2018\" & " /ETA /MAXAGE:" & $von & " /MINAGE:" & $bis)

bleibt das Ergebnis das Gleiche

Parameter für robocopy in der Konsole ausgeben ... ? - damit bin ich im Moment überfordert, wie mach ich das?

_FileListToArrayRec("g:\2018\") - das erkennt mein Autoit3 zwar nicht als Befehl/Funktion (blau, Parametervorschlag, Hilfe) erzeugt aber ein Array, allerdings auch nur eine Ebene. Muss mich noch mit den Optionen beschäftigen, vielleicht brauchts da was?

(Hilfe dazu hab ich gefunden: https://autoit.de/onlinehilfe/li…tToArrayRec.htm)

SG

**alpines**

Du musst in den Parametern für ArrayRec $FLTAR_RECUR angeben, standardmäßig arbeitet sie nicht rekursiv was wieder einfach nur eine miserable Designentscheidung ist.

Na den String kannst du in einer MsgBox oder mit ConsoleWrite ausgeben und dann mal in die CMD kopieren und so ausführen, dann siehst du da was schiefgeht.

entsel

Hallo Musashi

Danke für den Link, den Thread hatte ich schon gefunden - hatte mir insofern geholfen, dass ich mich mich Dircopy nicht übermäßig beschäftigt habe.

**Musashi**

Hallo entsel !

Zitat von alpines

Na den String kannst du in einer MsgBox oder mit ConsoleWrite ausgeben

So kannst Du den Kommandostring mal testen und in der Konsole ausgeben (MsgBox ginge auch) :

AutoIt

Local $von = 20180301
Local $bis = 20180331

; Kommandozeile separat aufbereiten :
Local $sCommand = StringFormat("g:\2018\ f:\sicherung\2018\ /ETA /MAXAGE:%s /MINAGE:%s", $von, $bis)

; Kommandozeile in Konsole anzeigen :
ConsoleWrite(@CRLF & "< @@ Kommandozeile =" & $sCommand & @CRLF & @CRLF)

; Befehl ausführen (akt. auskommentiert) :
RunWait(@ComSpec & " /k " & "robocopy.exe " & $sCommand, "", @SW_SHOW)

Alles anzeigen

Gruß Musashi

entsel

Hallo ihr beiden

Danke - werd ich mir anschauen - muss mich jetzt aber leider mit anderem beschäftigen ...

Bis später dann ...

**BugFix**

Zitat von Musashi

Local $sCommand = "g:\2018\" & " " & "f:\sicherung\2018\" & " /ETA /MAXAGE:" & $von & " /MINAGE:" & $bis

Da möchte ich euch wieder einmal StringFormat ans Herz legen, da kann man den Befehl genauso, wie in der Kommandozeile schreiben und hat nicht das Problem Leerzeichen oder Stringbegrenzer zu übersehen.

AutoIt

Local $sCommand = StringFormat("g:\2018\ f:\sicherung\2018\ /ETA /MAXAGE:%s /MINAGE:%s", $von, $bis)

Das erleichtert die Lesbarkeit ungemein.

**Musashi**

Zitat von BugFix

Da möchte ich euch wieder einmal StringFormat ans Herz legen, da kann man den Befehl genauso, wie in der Kommandozeile schreiben und hat nicht das Problem Leerzeichen oder Stringbegrenzer zu übersehen.

Ja, daran denkt man immer nicht - Asche auf mein Haupt .

Hier eine erweiterte Variante für entsel :

AutoIt

Local $von = 20180301
Local $bis = 20180331

; Kommandozeile separat aufbereiten :
Local $sCommand = StringFormat("g:\2018\ f:\sicherung\2018\ /ETA /MAXAGE:%s /MINAGE:%s", $von, $bis)

; Kommandozeile in Konsole und MsgBox anzeigen :
ConsoleWrite(@CRLF & "< @@ Kommandozeile =" & $sCommand & @CRLF & @CRLF)
MsgBox(0, "@@ Kommandozeile : ", $sCommand)

; Variante 1 :
; Befehl ausführen über @ComSpec :
; Infos :
; - verwendet man bei @ComSpec /k statt /c , dann bleibt das Fenster geöffnet
; - wird @SW_HIDE statt @SW_SHOW verwendet, erscheint kein Fenster
;RunWait(@ComSpec & " /c " & "robocopy.exe " & $sCommand, "", @SW_SHOW)


; Variante 2 :
; Robocopy direkt starten :
; Infos :
; - zusätzlich wird der Ausgabestream des Prozesses erfasst und kann angezeigt werden
Local $iPID = Run(@WindowsDir & "\system32\robocopy.exe " & $sCommand, "", @SW_HIDE, 2)
Local $sOutput = ""
While 1
    $sOutput &= StdoutRead($iPID)
    If @error Then ExitLoop
WEnd
; Ausgabestream in MessageBox anzeigen :
MsgBox(0, "Ausgabestream anzeigen : ", $sOutput)

Alles anzeigen

Gruß Musashi

**AspirinJunkie**

Zitat von entsel

Stimmt, das Leerzeichen hat gefehlt, aber auch so:

RunWait(@ComSpec & " /c " & "robocopy.exe", "g:\2018\" & " " & "f:\sicherung\2018\" & " /ETA /MAXAGE:" & $von & " /MINAGE:" & $bis)

bleibt das Ergebnis das Gleiche

Du gibst als Arbeitsverzeichnis (zweiter Parameter von RunWait) die zu übergebenden Parameter von robocopy an.

Ich denke das ist nicht das was du eigentlich möchtest.

**alpines**

Zitat von Musashi

Ja, daran denkt man immer nicht

ExpandVarStrings wäre -vielleicht- sogar besser:

AutoIt

Opt("ExpandVarStrings", 1)

$sCommand = "g:\2018\ f:\sicherung\2018\ /ETA /MAXAGE:$von$ /MINAGE:$bis$"

**Musashi**

Zitat von alpines

ExpandVarStrings wäre -vielleicht- sogar besser:

Sicher auch eine gute Möglichkeit !

Ich denke, wir warten jetzt erst mal ab bis sich entsel wieder meldet. Ausreichend Tipps etc. sind ja schon aufgelaufen.

Gruß Musashi

entsel

Morgen Leute

Na, da hat sich ja noch einiges getan ...

Hab gestern noch kurz reing'schaut und mich etwas damit beschäftigt.

1. Das Auslesen der Ordner/Dateistruktur in ein Array ist mir gelungen. Gibt's da eigentlich ein Limit? Ich glaub, ich hab da mal was gelesen, find's aber nicht mehr. (Es könnten nämlich am Jahresende an die 2000 Ordner und Dateien auf der Karte sein)

2. Bei den neueren Beiträgen ab #12 ist - für mich - noch einiges neu und unbekannt - da brauch ich noch Zeit, um mich durchzuackern (aber die hab ich ja).

Vorerst mal Danke an alle Beteiligten.

Ich glaub, ich werde mal den 1. Weg weiter verfolgen, der ist für mich (vorerst) verständlicher bzw. leichter handlebar. Mal sehen, ob ich damit bis ans Ziel komme.

SG entsel

**Musashi**

Zitat von entsel

1. Das Auslesen der Ordner/Dateistruktur in ein Array ist mir gelungen. Gibt's da eigentlich ein Limit? Ich glaub, ich hab da mal was gelesen, find's aber nicht mehr

Laut : https://www.autoitscript.com/autoit3/docs/a…itsDefaults.htm

-> VAR_SUBSCRIPT_ELEMENTS = 16,777,216 (maximale Anzahl von Elementen in einem Array)

Gruß Musashi

**AspirinJunkie**

Zitat von entsel

Der Kopiervorgang sollte daher mit den Parametern "kopiere alles aber überschreibe nichts" laufen.

Was hält dich jetzt genau von der Robocopy-Lösung ab?
Diese sollte die schnellste und einfachste Methode sein.

Eigentlich sollte folgender Aufruf reichen:

Code

robocopy "Z:\Quelle" "Z:\Ziel" /E /XC /XN /XO

entsel

Also die Array-Limits sollten dann grad mal reichen

Zitat

robocopy "Z:\Quelle" "Z:\Ziel" /E /XC /XN /XO

Na klar, das is es.

Wie war das noch mit dem Wald und den Bäumen?

Danke an alle Beteiligten.

Eventuell habe ich später noch Fragen zum Thema Fortschrittsanzeige oder etwas in der Richtung (abhängig von Datenmenge - und meinem Ehrgeiz .

Aber erst probier ich mal selber - bis die Fragen konkret sind.

SG entsel