HotKeySet("{Esc}","_Exit")
HotKeySet("{F4}","_Move")
Global $move
While 1
Sleep(100)
WEnd
Func _Move()
$move = Not $move
If $move Then
DirCopy (@DesktopDir & "\Папка исходник", "C:\Папка Бэкап",1)
DirRemove(@DesktopDir & "\Папка исходник",1)
DirCreate(@DesktopDir & "\Папка исходник")
ControlSend('','','','{F5}')
EndIf
EndFunc
Func _Exit()
Exit
EndFunc