Ну на конец токи вроде всё работает отлично !!! :IL_AutoIt_1:
Спасибо
beliy за наводочку :beer:
и всем остальным ;)
В общем что собственно получилось, знаю что выглядит немного громоздко но всё же.
У меня получилось 4 файла.
1) Backup_Nav_Sql.exe
2) backup.ini
3) backup.bat
4) backup.sql
Backup_Nav_Sql.exe
#include <Date.au3>
#include "Zip.au3"
#include <FileOperations.au3>
#Include <File.au3>
Opt("TrayIconDebug",1)
;~ Запускаем батник бекапа баз SQL средствами
$iReturn = RunWait(@ScriptDir & "\backup.bat")
if FileExists (@ScriptDir & "\Backup.ini") Then ; Проверка на наличие данного файла, если нет то сообщаем и выходим
$sPath_ini=@ScriptDir & "\Backup.ini" ; Файл настроек путей для сохранения бекапа
$A = IniRead($sPath_ini, "A", "Patch","") ; Получаем из INI путь к Bases\Base
$B = IniRead($sPath_ini, "B", "Patch","") ; Получаем из INI путь 1 (диск D в папку Backup (D:\Backup))
$C = IniRead($sPath_ini, "C", "Patch","") ; Получаем из INI путь 2 (IP адрес и путь к папке сетевого хранилища)
;~ Создаём архив
$Zip_Data = "Backup.zip"
$Zip = _Zip_Create($A & $Zip_Data)
_Zip_AddFolder($Zip, $A)
;~ Создаём папки с именами дня недели в пути В и С
DirCreate ( $B & @WDAY)
$NomberB = $B & @WDAY
DirCreate ( $C & @WDAY)
$NomberC = $C & @WDAY
;~ Копируем созданый архив по пути В
FileCopy($Zip, $NomberB, 1)
Sleep (1000)
;~ Очищаем папку с подпапками по пути А
$allfolders = _FileListToArray($A, "*", 2)
For $i=1 to $allfolders[0]
FileDelete($A & "\" & $allfolders[$i] & "\" & "*.*")
Next
;~ И перемещаем по пути С
FileMove($Zip, $NomberC, 1)
Else
MsgBox(64, "Внимание!!!", "Backup.ini не найден")
Exit
EndIf
backup.ini
[A]
Patch=C:\Backup\
[В]
Patch=D:\Backup\
[C]
Patch=\\XXX.XXX.XXX.XX\publik\Backup\
backup.bat
sqlcmd -e -i "C:\Back\backup.sql" > sqllog.txt
backup.sql
BACKUP DATABASE [Baza] TO DISK = N'C:\Backup\Base\Baza.bak' WITH NOFORMAT, NOINIT, NAME = N'Baza-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10
GO
BACKUP DATABASE [master] TO DISK = N'C:\Backup\Data\master.bak' WITH NOFORMAT, NOINIT, NAME = N'master-Full Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10
GO
BACKUP DATABASE [model] TO DISK = N'C:\Backup\Data\model.bak' WITH NOFORMAT, NOINIT, NAME = N'model-Full Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10
GO
BACKUP DATABASE [msdb] TO DISK = N'C:\Backup\Data\msdb.bak' WITH NOFORMAT, NOINIT, NAME = N'msdb-Full Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10
GO
Вот как то так ;D:laugh: ;D :IL_AutoIt_1: :IL_AutoIt_1: :IL_AutoIt_1:
