Kleines Backup-Tool

Hallo zusammen,

vorab: Sollte ich im falschen Forum sein, dann tut es mir leid!

Was habe ich vor?
In meiner Firma haben viele Mitarbeite rienen Laptop. Auf dem Laptop werden lokal alle "Eigenen Dateien" gesichert. Es gibt ein kleines Backup-Programm (ebenfalls in Autoit geschrieben, aber nicht von mir), welches die Daten aus dem Benutzerordner auf ein Netzlaufwerk kopiert. Das Problem dabei ist: Es sieht unschön aus, gibt keine Informationen und erlaubt keine Einstellungen. Zusätzlich kopiert es stumpf alle Dateien rüber die sich geändert haben, lässt jedoch gelöschte Dateien bestehen (das nervt). Das Programm bedient sich der Windows eigenen Funktion robocopy. Das Skript steht mir leide rnicht zur Verfügung.
Ich möchte ein eigenes Backup Programm schreiben, das mir ein paar Einstellungen erlaubt. Beispielsweise: Kopiere alle Änderungen und lösche gelöschte Dateien auf dem Netzlaufwerk.

Was brauche ich dafür?

Für die Umsetzung fehlen mir ein paar Dinge.

• Eine vernünftige Funktion zum Kopieren von Daten, mit Einstellungsmöglichkeiten und optimalerweise einer ProgressBar. (Ich habe das Skript von Oscar gefunden, allerdings ist das noch zu simple denke ich. Meine Erfahrung in Autoit reicht auch nicht aus um das alles zu verstehen...)
• Eine TreeView, die ich in meine GUI implementieren kann und mir erlaubt per Checkbox die Pfade auszuwählen, die gesichert werden sollen. (Auch hier habe ich dieses Skript von oscar gefunden. Aber das ist leider nicht ganz ausgereift.)

Da ich leider immer noch Anfänger bin, weiß ich nicht wirklich wonach ich suchen muss.. Kennt Ihr schon fertige UDFs / Beispiele / Skripte, wo so etwas umgesetzt worden ist? Ich erwarte hier keine fertige Lösung ! Ich freue mich über jeden Schnipsel Code der mir weiterhelfen könnte.

Danke!

Zitat von alpines

Das ist doch eine super Gelegenheit mal deine AutoIt-Kentnisse zu verbessern!

Deine Idee bisher klingt nicht schlecht, eine GUI zum Auswählen der Pfade und zum Anzeigen des Fortschrittes.
Allerdings gibt es da ziemlich viele Möglichkeiten wie du das ganze bewerkstelligen kannst. Kopierfunktionen mit ProgressBars gibt es glaube ich zu hauf also einfach mal danach googlen.
Sollte robocopy den aktuellen Fortschritt in der Konsole anzeigen, so könntest du auch einfach robocopy starten und die Ausgabe in die Konsole auslesen zu anzeigen.
https://www.autoitscript.com/forum/topic/11888-yet-another-copy-with-progress/#

Das gleich sollte auch für die TreeView gelten, einfach mal googlen und schauen was du so findest.
Du könntest natürlich jede Funktion selber schreiben, aber das kostet einfach zu viel Zeit wenn du nur das Ergebnis haben möchtest.
Treeview FileExplorer

Wenn man bisschen googlelt, so findet man eigentlich ziemlich schnell brauchbare Sachen.

So, habe mich mal daran versucht und dabei ist das zustande gekommen:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Outfile=BackMeUp.Exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include "C:\Data\00_Dokumente\AutoIt\UDFs\CopyWithProgress\CopyWithProgress.au3"
#Region ### START Koda GUI section ### Form=c:\data\00_dokumente\autoit\eigene tools\laptop backup\fmmain.kxf
$formMain = GUICreate("BackMeUp", 601, 623, -1, -1)
GUISetIcon("C:\Data\00_Dokumente\AutoIt\Eigene Tools\Laptop Backup\icon.ico", -1)
$groupSource = GUICtrlCreateGroup("Quellen", 10, 10, 580, 295)
$editSource = GUICtrlCreateEdit("", 20, 25, 560, 270)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$groupDestination = GUICtrlCreateGroup("Zielpfad", 10, 315, 580, 51)
$inputDestination = GUICtrlCreateInput("", 20, 335, 560, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$checkboxClean = GUICtrlCreateCheckbox("Zielordner vorab säubern", 10, 375, 580, 17)
GUICtrlSetState(-1, $GUI_UNCHECKED)
$buttonStart = GUICtrlCreateButton("Backup starten", 10, 400, 580, 50)
$editLog = GUICtrlCreateEdit("", 10, 460, 580, 150, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Global $sourcesTXT = @ScriptDir & "\sources.txt"
Global $destinationTXT = @ScriptDir & "\destination.txt"


;Erstelle TXT-Dateien mit Quellen und Zielen, wenn diese nicht vorhanden sind
If FileExists($sourcesTXT) = False Then
	FileWrite($sourcesTXT, "C:\Data\")
EndIf
If FileExists($destinationTXT) = False Then
	FileWrite($destinationTXT, "P:\BackMeUp\")
EndIf


;Schreibe die Daten aus den TXT-Dateien in die Controls
GUICtrlSetData($editSource, FileRead($sourcesTXT))
GUICtrlSetData($inputDestination, FileRead($destinationTXT))


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $buttonStart
			GUICtrlSetData($editLog, "")
			GUICtrlSetState($buttonStart, $GUI_DISABLE)


			;Quellen und Ziele sichern
			GUICtrlSetData($editLog, GUICtrlRead($editLog) & "Sichere Quellpfade und Zielordnerpfad... ")
			FileDelete($sourcesTXT)
			FileWrite($sourcesTXT, GUICtrlRead($editSource))
			FileDelete($destinationTXT)
			FileWrite($destinationTXT, GUICtrlRead($inputDestination))
			GUICtrlSetData($editLog, GUICtrlRead($editLog) & "OK" & @CRLF)


			;Zielordner saeubern
			If _IsChecked($checkboxClean) Then
				GUICtrlSetData($editLog, GUICtrlRead($editLog) & "Lösche alle Dateien im Zielordner... ")


				$folders = _FileListToArray(GUICtrlRead($inputDestination))


				For $i = 0 To UBound($folders) - 1
					If $folders[$i] = "mail" Then


					Else
						DirRemove(GUICtrlRead($inputDestination) & $folders[$i], 1)
					EndIf
				Next


				GUICtrlSetData($editLog, GUICtrlRead($editLog) & "OK" & @CRLF)
			EndIf


			;Backup durchfuehren


			$sources = StringSplit(GUICtrlRead($editSource), @CRLF, 3)
			$destination = GUICtrlRead($inputDestination)
			For $i = 0 To UBound($sources) - 1
				GUICtrlSetData($editLog, GUICtrlRead($editLog) & "Kopiere " & $sources[$i] & " nach " & $destination & "... ")
				$n = _CopyWithProgress($sources[$i], $destination)
				If $n = False Then
					GUICtrlSetData($editLog, GUICtrlRead($editLog) & "Fehler" & @CRLF)
				Else
					GUICtrlSetData($editLog, GUICtrlRead($editLog) & "Erfolg" & @CRLF)
				EndIf
			Next
			GUICtrlSetData($editLog, GUICtrlRead($editLog) & "Das Backup ist abgeschlossen." & @CRLF)
			ShellExecute('"' & GUICtrlRead($inputDestination) & '"')
			GUICtrlSetState($buttonStart, $GUI_ENABLE)
	EndSwitch
WEnd


Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Es tut soweit seinen Job. Allerdings würde ich gerne mindestens die Funktion "Lösche Zielordner" durch "Lösche veraltete Dateien" ersetzen ... Weiß aber noch nicht so ganz wie ich das hinbekomme :D...

Zitat von alpines

Was genau willst du denn machen? Möchtest du ein Backup erstellen und die Dateien einfach überschreiben oder möchtest du verschiedene Versionen von Dateien haben?

Ich möchte, dass er mir alle geänderten Dateien überschreibt und alle Dateien die im Zielordner sind, aber nicht mehr im Quellordner, löscht.

Beispiel:
Datei A hat sich geändert
Datei B wurde gelöscht
Datei C bleibt unverändert

Beim Backup wird dann Datei A überschrieben, Datei B im Zielordner gelöscht und mit Datei C passiert gar nichts.

Gute Idee! Danke erstmal, aber ich denke ich werde eher Richtung robocopy weiterschauen... Das Programm beinhaltet alles was ich brauche und bietet auch noch Monitoring. Vielleicht schreibe ich mir dazu eine kleine AutoIT GUI um das besser zu steuern :).

Danke für deine Mühe :). Ich gucks mir bei Gelegenheit an, schaffe das zeitlich gerade nicht.