backup mydocs routine - saves up to 3 versions of files

[speedi]

This script is what I developed for a business to backup mydocs files saving up to 3 iterations of any changed file... First it copies any .bat & .txt files from the root folder (for logs and such) to a mydocs folder named "data". It also copies any office dot files to mydocs. It also does a screen capture for debugging in case it doesn't work as expected. It deletes old "temp" files also. It closes outlook before copy begins. It also saves the name of all open windows in a file named c:openwins.txt.

It creates a file called c:backup.txt that shows all files backed up, where they were backed up and the date the backup was done. I use a scheduled job to print the file every morning so the user can see that in fact their backup is working...

The script uses the "xcopy" command and will back up to a local drive or a network drive.. the backup does files with archive flag set and then clears the archive flag. Change the xcopy option for the archive flag if you want all files backed up the first time around...(remove /m) The destination folder and some other info is stored in an .ini file in the root directory.. You must create the folders wherever you will be backing up. The script still contains some options I do not use anymore.. they are commented out.... It also has an exclude files capability.

THE SCRIPT:

;

; in the root folder (C:) create an ini file named user.ini

; that looks like this (without the semicolon)

;[sETTINGS]

;username=speedi

;dirnumber=1 9/8/2011 changed limit to 3 (three) due to disk being filled search for "if $dirno =" to change

; delete old TEMP filesI used /b and /i to check modified date only THE /a5 specifies files older than 5 days

; download decay here: http://www.linkdata.se/software/archives/

RunWait(@ComSpec & " /c " & 'c:decay.exe /a5 /b /d /i /n "C:Documents and SettingsJim MihalskiLocal SettingsTemp*.*"')

; Copy any *.bat files from root c: for backup

RunWait(@ComSpec & " /c " & 'C:\Windows\System32\XCOPY.EXE " C:*.bat "C:Documents and SettingsJim MihalskiMy Documentsdata" /c/m/y')

; Copy any *.txt files from root c: for backup

RunWait(@ComSpec & " /c " & 'C:\Windows\System32\XCOPY.EXE " C:*.txt "C:Documents and SettingsJim MihalskiMy Documentsdata" /c/m/y')

; Copy the MS word normal.dot file (macros, etc) to the data folder for backup

RunWait(@ComSpec & " /c " & '"C:\Windows\System32\XCOPY.EXE "C:Documents and SettingsJim MihalskiApplication DataMicrosoftTemplatesNormal*.dot*" "C:Documents and SettingsJim MihalskiMy Documentsdata" /c/y"')

; following takes a screen snapshot and saves it as c:capture??.jpg

; so I can see what might have caused the daily backup

; not to run....

; delete any prior capture jpg files

FileDelete("c:capture*.jpg")

; If printscreen was started before, close it

If ProcessExists("printscreen.exe") Then

RunWait("C:Program FilesPrintScreenPrintScreen.exe /exit")

EndIf

; Do special printscreen with parameters to capture full screen and save as capture??.jpg

RunWait("C:Program FilesPrintScreenPrintScreen.exe /cptarea='2' /dir='c:' /image='1' /file='capture' /justnow")

; OK Now run regular printscreen

Run("C:Program FilesPrintScreenPrintScreen.exe /cptarea='3'")

Sleep(5000)

;#comments-end

; now check for any reminder or overdue Outlool windows

; if any exist close them before backup

Opt("WinWaitDelay", 100)

Opt("WinTitleMatchMode", 4)

$loop = 0

While $loop < 2

If WinExists("Overdue -") Then

If Not WinActive("Overdue -") Then WinActivate("Overdue -")

Send("{ALTDOWN}c{ALTUP}1{ALTDOWN}s{ALTUP}")

Sleep(500)

Else

$loop = 1

EndIf

If WinExists("Reminder -") Then

If Not WinActive("Reminder -") Then WinActivate("Reminder -")

Send("{ALTDOWN}c{ALTUP}1{ALTDOWN}s{ALTUP}")

Sleep(500)

Else

$loop = 2

EndIf

WEnd

; next routine will compact Outlook pst file if Outlook is open then cloaes Outlook

; works for Outlook 2003

Opt("WinTitleMatchMode", 2)

If WinExists("Microsoft Outlook") Then

WinActivate("Microsoft Outlook", "")

WinWaitActive("Microsoft Outlook", "")

Send("{ALTDOWN}{f4}")

winWaitClose("Microsoft Outlook", "")

Else

EndIf

; will list all open windows to file c:openwins.txt

; used to determine why outlook.pst isn't being copied

FileDelete("c:openwins.txt")

$file = FileOpen("c:openwins.txt", 1)

; Check if file opened for writing OK

If $file = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

$var = WinList()

For $i = 1 To $var[0][0]

; Only display visble windows that have a title

If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then

FileWrite($file, "Title=" & $var[$i][0] & @CRLF)

; MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])

EndIf

Next

Func IsVisible($handle)

If BitAND(WinGetState($handle), 2) Then

Return 1

Else

Return 0

EndIf

EndFunc ;==>IsVisible

$user = IniRead("c:user.ini", "settings", "username", "")

$dirno = IniRead("c:user.ini", "settings", "dirnumber", "")

$thedir = "I:backup" & $user & "" & $user & "-" & $dirno

; Once in four backups, do not exclude droid videos or my downloads - that will be backup dir #1

If $dirno = 1 Then

FileCopy("C:excludewovideos.txt", "C:exclude.txt", 1)

Else

FileCopy("C:excludewithvideos.txt", "C:exclude.txt", 1)

EndIf

RunWait(@ComSpec & " /c " & 'C:\Windows\System32\XCOPY.EXE "' & @MyDocumentsDir & '" "' & $thedir & '" /c/s/m/y/exclude:exclude.txt >c:backup.txt')

; /A Copies files with the archive attribute set, doesn't change the attribute.

; /M Copies files with the archive attribute set, turns off the archive attribute.

; /S Copies directories and subdirectories except empty ones.

; /C Continues copying even if errors occur.

; /Y Overwrites existing files without prompting.

; Use consolewrite to see how the command will look.. can even copy and paste the consolewrite output to a DOS window to see if it works.

;ConsoleWrite('C:\Windows\System32\XCOPY.EXE "' & @MyDocumentsDir & '" "' & $thedir & '" /c/s/a/exclude:exclude.txt >c:backup.txt' & @CRLF)

#comments-start

WinWaitActive("C:\Windows\System32\XXCOPY.EXE") ; this code is a work around for the netwrok restriction

Sleep(2000) ; two seconds

If WinExists("C:\Windows\System32\XXCOPY.EXE", "") Then

WinActivate("C:\Windows\System32\XXCOPY.EXE", "")

Send("{Enter}")

EndIf

Sleep(2000) ; two seconds

If WinExists("C:\Windows\System32\XXCOPY.EXE", "") Then

WinActivate("C:\Windows\System32\XXCOPY.EXE", "")

Send("{Enter}")

EndIf

#comments-end

;RunWait(@ComSpec & " /c " & "c:tm start /L >>c:backup.txt")

; MsgBox(0,"test","dir " & $thedir & " /S >>c:backup.txt")

;RunWait(@ComSpec & " /c " & "dir " & $thedir & " /S >>c:backup.txt")

;RunWait(@ComSpec & " /c " & "c:tm stop /L >>c:backup.txt")

$dirno = $dirno + 1

If $dirno = 4 Then $dirno = 1

IniWrite("c:user.ini", "settings", "dirnumber", $dirno)

; now write a record of the backup end time to the backup.txt file

$file = FileOpen("c:backup.txt", 1) ; (1) is write mode to append

; Check if file opened for writing OK

If $file = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

FileWrite($file, @CRLF & "Backup destination " & $thedir & @CRLF & @CRLF)

FileWrite($file, "Backup Finished " & @MON & "/" & @MDAY & "/" & @YEAR & " -- " & @HOUR & ":" & @MIN & @CRLF)

Exit

Edited June 23, 2012 by speedi