Simple backup and restore scripts to make life easier (Pc - Cloud disabled)


#1

copy paiste between the asterix lines and call it “GenZ Backup.vbs”


Dim fs,Src,Bkup,objShell
Set objShell = WScript.CreateObject(“WScript.Shell”)
Src = objShell.Environment(“PROCESS”).Item(“USERPROFILE”) & “\Documents\Avalanche Studios\GenerationZero”
Set fs = CreateObject(“Scripting.FileSystemObject”)
Bkup = Src & “-Backup”
If fs.FolderExists(Src) Then
If fs.FolderExists(Bkup) Then fs.DeleteFolder (Bkup)
fs.CopyFolder Src, Bkup
Else
msgbox"Error , The Save Folder was not found ",16,“GenZ Backup”
End IF


copy paiste between the asterix lines and call it “GenZ Restore.vbs”


Dim fs,Src,Bkup,objShell
Set objShell = WScript.CreateObject(“WScript.Shell”)
Src = objShell.Environment(“PROCESS”).Item(“USERPROFILE”) & “\Documents\Avalanche Studios\GenerationZero”
Set fs = CreateObject(“Scripting.FileSystemObject”)
Bkup = Src & “-Backup”
If fs.FolderExists(Bkup) Then
If fs.FolderExists(Src) Then fs.DeleteFolder (Src)
fs.CopyFolder Bkup, Src
Else
msgbox"Error , The Backup Folder was not found ",16,“GenZ Restore”
End IF


Warning these scripts will not prompt you for confirmation , use at own risk.
Hope this is of help to anyone :smiley: .