Per Script Backups erstellen - Windows for Professionals

Per Script Backups erstellen

Mit wenigen Zeilen Code sind auch Sie in der Lage ein automatisiertes Backup zu machen. Dieses Script können Sie z.B. als Anmeldescript verwenden, um bei jeder Anmeldung bestimmte Dateien auf einer externen Festplatte zu sichern.

Zuerst benötigen Sie die Ordnerangaben. "QPfad" ist der Quellodner und "ZPfad" der Zielordner. Beides sind Konstanten.

Const QPath = "%profile%\Eigene Dateien\todo"
Const ZPath = "S:\Allgemein\Backups"

Jetzt benötigen Sie edas "FileSystemObject", um Zugriff auf das Dateisystem zu erhalten.

Set objFSO = CreateObject("Scripting.FileSystemObject")

Zuerst muss überprüft werden, ob der Quellordner überhaupt existiert.

If (Not objFSO.FolderExists(QPath)) Then

MsgBox "Ordner nicht gefunden!"
WScript.Quit

End If

Danach wird noch überprüft, ob sich Dateien im Quellordner befinden. Dazu muss ein Objekt für den Ordner und deren Dateien erstellt werden. Per For-Schleife können wir dann feststellen, ob sich Dateien im Ordner befinden.

Set objFolder = objFSO.GetFolder(QPath)
Set objFiles = objFolder.Files
FileFlag = true

For Each i in objFiles
FileFlag = false
Next

If FileFlag Then

MsgBox "Keine Dateien gefunden!"
WScript.Quit

End If

Falls der Zielordner noch nicht erstellt wurde, müssen Sie das tun.

If (Not objFSO.FolderExists(ZPath)) Then

objFSO.CreateFolder(ZPath)
MsgBox "Zielordner erstellt!"

End If

Jetzt kopieren Sie noch die Dateien vom Quell- zum Zielordner ("QPath" zu "ZPath").

objFSO.CopyFile QPath & "\*.*", ZPath

Zum Schluss noch ein Hinweis, dass das Script fertig ist.

MsgBox "Backup erstellt."

Dieses Script können Sie Ihren Wünschen anpassen und so auch als Anmeldescript verwenden oder per "Geplante Tasks" in regelmäßigen Abständen zur Sicherung verwenden. Fertig ist die automatisierte Backup-Lösung. Kostenlos, schnell und einfach.

Autor: Dominik Berger