' Backup utility to run the first working day of the month

isFirst      = (Day(now) = 1)
isMonday     = (WeekDayName(WeekDay(Date())) = "Monday")
isFirstDay   = (Day(now) < 4)

If  isFirst or (isMonday and isFirstDay) then
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    mstop = Msgbox (" Do you want to backup your sources today ? ",36,"  Back up reminder")
    If mstop = 6 then
        dName     = "Helder"
        EddieFld  = "\\etedescopc\Public\Backup-Company Files\"
        TodayMDY  = Month(now) & "-" & Day(now) & "-" & right(Year(now),2)
    	Dim Local(3)
    	Local(1) = "C:\newqq95\allcomp\backup\backup.txt"
    	Local(2) = "C:\QUICK95\ALLCOMP\backup\backup.txt"
    	Local(3) = "C:\NEWQQGA\allcomp\backup\backup.txt"
    	Dim BakUp(3)
    	BakUp(1) = EddieFld & "Florida\" & Year(now) & "\FL-" & dName & "-" & TodayMDY & ".txt"
    	BakUp(2) = EddieFld & "Texas\"   & Year(now) & "\TX-" & dName & "-" & TodayMDY & ".txt"
    	BakUp(3) = EddieFld & "Georgia\" & Year(now) & "\GA-" & dName & "-" & TodayMDY & ".txt"

		For i = 1 to 3
		objFSO.CopyFile  Local(i) , BakUp(i) , true
		Next   
    End if
End if


'
'FL
'C:\newqq95\allcomp\backup
'\\etedescopc\Public\Backup-Company Files\Florida\2006
'TX
'C:\QUICK95\ALLCOMP\backup
'
'GA
'C:\NEWQQGA\allcomp\backup
'