AHK: Создание резервных копий

MsgBox %A%`n%A_Size%`n%B%`n%B_Size%

s2:
№:=1,tip1_1:=1,tip2_1:=1,A1:="D:\Программы\AHK\автохоткей.docx",B1:="C:\Users\sabir\OneDrive\Документы"
№:=2,tip1_2:=1,tip2_2:=1,A2:="D:\Программы\AHK\автохоткей.docx",B2:="C:\YandexDisk\автохоткей"
№:=3,tip1_3:=2,tip2_3:=1,A3:="D:\Программы\AHK\скрипты",B3:="C:\Users\sabir\OneDrive\Документы"
№:=4,tip1_4:=2,tip2_4:=1,A4:="D:\Программы\AHK\скрипты",B4:="C:\YandexDisk\автохоткей"
№:=5,tip1_5:=2,tip2_5:=1,A5:="D:\Программы\Програмирование",B5:="C:\Users\sabir\OneDrive\Документы"
№:=6,tip1_6:=2,tip2_6:=1,A6:="D:\Программы\Програмирование",B6:="C:\YandexDisk"
Return

#SingleInstance force
SetBatchLines, -1
SetTimer, s1, 900000 ;проверка изменений в файлах(папках) каждые 15 мин.
s1: 
Gosub, s2
loop, %№%
{
	A:=A%A_Index%,B:=B%A_Index%
	if (A="" or B="") ;если задачи были удалены(переменные не существуют)
	continue ;прокрутка цикла вперед на №+1
	SplitPath, A, A_Name
	if (tip1_%A_Index%=1) ;если копируем файл
	{
		FileGetSize, A_Size, %A%  ; Размер в байтах
		FileGetSize, B_Size, %B%\%A_Name%  ; Размер в байтах
		if (A_Size=B_Size)
		res:=false
		else
		res:=true ;если размеры не совпадают-копирование
		IfNotExist, %A%
		MsgBox, Исходный файл не существует!`n%A%???
		else if (res or tip2_%A_Index%=2)
		{
		SoundBeep ;сигнал-идет копирование
		MsgBox %A%`n%A_Size%`n%B%`n%B_Size%
		FileCopy, %A%, %B%, 1
		}
	}
	else if (tip1_%A_Index%=2) ;если копируем папку
	{
		A_Size:=0
		Loop, %A%\*.*, , 1
		A_Size+=%A_LoopFileSize%
		B_Size:=0
		Loop, %B%\%A_Name%\*.*, , 1
		B_Size+=%A_LoopFileSize%
		if (A_Size=B_Size)
		res:=false
		else
		res:=true ;если размеры не совпадают-копирование
		IfNotExist, %A%
		MsgBox, Исходная папка не существует!`n%A%???
		else if (res or tip2_%A_Index%=2)
		{
		SoundBeep ;сигнал-идет копирование
		MsgBox %A%`n%A_Size%`n%B%`n%B_Size%
		FileRemoveDir, %B%\%A_Name%, 1 ;предварительно удаляем папку
		FileCopyDir, %A%, %B%\%A_Name%, 1 ;копируем папку
		}
	}
}
Return 
  
^vk53:: ;Ctrl+S-новая запись
№:=0 
InputBox, tip1, Выберите тип объекта(файл`,папка),
(
Копию чего вы хотите настроить?`nфайла-введите "1"
папки-введите  "2"
)
if tip1=1
{
t1=--------------------------------Выберите файл(оригинал)
t2=для резервного копирования--------------------------
FileSelectFile, A, , ,%t1% %t2% 
if A=
Return 
FileSelectFolder, B,  ,  , Выберите папку для сохранения копий
if B=
Return 
}
else if tip1=2
{
t1=   Выберите папку(оригинал)
t2=для резервного копирования
FileSelectFolder, A, , ,%t1% %t2% 
if A=
Return 
FileSelectFolder, B,  ,  , Выберите папку для сохранения копий
if B=
Return  
}
else
Return

InputBox, tip2, Настройте алгоритм сохранения,
(
Выберите критерий сохранения:`n`nчерез каждые 15мин при изменении размера
объекта(по умолчанию)-введите  "1"
через каждые 15мин-введите "2"
)
if (tip2!=2)
tip2:=1
 
Loop, read, %A_ScriptFullPath%
SumStr:=A_Index ;определяем общее количество строк данного скрипта
ScriptName:=SubStr(A_ScriptName, 1, InStr(A_ScriptName, ".") -1) 
;определяем имя скрипта без расширения
Loop, read, %A_ScriptFullPath%, %A_WorkingDir%\%ScriptName%.txt
{
if (A_Index=SumStr)
break
FileAppend, %A_LoopReadLine%`n
}
Gosub, s2 
№+=1 ;порядковый номер новой задачи
Rec=
(
№:=%№%,tip1_%№%:=%tip1%,tip2_%№%:=%tip2%,A%№%:="%A%",B%№%:="%B%"
Return 
)
FileAppend, %Rec%, %A_WorkingDir%\%ScriptName%.txt
FileDelete, %A_ScriptFullPath%
FileMove, %A_WorkingDir%\%ScriptName%.txt, %A_WorkingDir%\%ScriptName%.ahk
Reload

^vk52:: ;Ctrl+R выполнить экстренную проверку
Gosub, s1 
Return
 
s2:
Return