[HUGO75]

Bat To Exe Converter поможет! сайт http://www.f2ko.de/English/b2e/index.php

[SeRGi-uS]

Да, замечательная программа "Bat To Exe Converter". Некоторое время я её и использовал пока антивирус не стал обнаруживать в скомпилированном файле трояна (возможно конечно это ложное срабатывание), поэтому и обратил внимание на программу AutoIT.

Пытаюсь всё-таки переделать скрипт, но не получается пока удаление старого файла (пока не нашел как это решить). Не подставляются переменные и не удаляется архив недельной давности.

;~ Удаляем прошлый архив недельной давности
If exist "E:\backupMail\@ComputerName_@UserName_@WDAY.7z" Then FileDelete("E:\backupMail\@ComputerName_@UserName_@WDAY.7z")

Загвозка в том, что не знаю как ввести эти переменные в название файла, т.е. чтобы файл имел примерно следующий вид
%computername%_%username%_<номер дня недели>.
Набросал примерный набросок:

КОД:

; Создаем папку для хранения архивов
DirCreate("E:\backupMail")

; Закрываем работающую программу ThunderBird
ProcessClose("thunderbird.exe")

;~ Расположение консольной программы архиватора 7-zip:
$7zip="c:\Program Files\7-Zip\7z.exe"

;~ Удаляем прошлый архив недельной давности
If exist "E:\backupMail\@ComputerName_@UserName_@WDAY.7z" Then FileDelete("E:\backupMail\@ComputerName_@UserName_@WDAY.7z")
;~ Имя создаваемого архива:
$ArchiveName=' "E:\backupMail\@ComputerName_@UserName_@WDAY.7z"'
;~ Указываем расположежние профиля почтовой программы ThunderBird:
$addFiles=' "c:\Documents and Settings\sab\Application Data\Thunderbird\"'

;~ Задаём параметры архивации:
$param=' a' & $ArchiveName & $addFiles

Run ($7zip & $param,"",1)

[FlatX007]

Незнаю особо невникал но вроде вот так получается ....исходя из твоего примера

Код:

$Pach_7Z = "E:\backupMail\" & @ComputerName & "_" & @UserName & "_" & @WDAY & ".7z"

; Создаем папку для хранения архивов
DirCreate("E:\backupMail")

; Закрываем работающую программу ThunderBird
ProcessClose("thunderbird.exe")

;~ Расположение консольной программы архиватора 7-zip:
$7zip = @ProgramFilesDir & "\7-Zip\7z.exe"

;~ Удаляем прошлый архив недельной давности
If FileExists($Pach_7Z) Then FileDelete($Pach_7Z)

;~ Имя создаваемого архива:
$ArchiveName = $Pach_7Z
;~ Указываем расположежние профиля почтовой программы ThunderBird:
$addFiles =@AppDataDir & "\Thunderbird\"

;~ Задаём параметры архивации:
$param = ' a' & $ArchiveName & $addFiles
Run($7zip & $param,"",1)

[SeRGi-uS]

Спасибо FlatX007 за помощь. Название файла только почему-то не срабатывает. В названии не получаются значения переменных ( что-то типа МойКомпьютер_администратор_1.7z).

[FlatX007]

Что-то типа.. это воодушевляющий ответ ... а точное название никак ?

Что бы не путаться после возврата в переменную каких либо даных нужно прописать вот так

Код:

$Pach_7Z = "E:\backupMail\" & @ComputerName & "_" & @UserName & "_" & @WDAY & ".7z"
MsgBox(0,'', $Pach_7Z)

Смотриш, что выдало сообщение и сравниваеш с тем что должно быть ... редактируеш

[SeRGi-uS]

Да, в форму выводится как и нужно. Как это сделать в названии файла? Пробовал разные варианты - пока не получается. Как-то надо это перенаправить из формы?

[FlatX007]

Вот так ток WinRarом сделал .... всё остальное в присоединённом файле

Код:

#include <Process.au3>

If FileExists(@ScriptDir & "\Rar.exe")Then

    ProcessClose("thunderbird.exe")
    If ProcessExists("thunderbird.exe") Then
        MsgBox(16,"","Программа Thunderbird запущена ... продолжение невозможно !!")
        Exit
    EndIf

    $Param = @ComputerName & "_" & @UserName & "_" & @WDAY
    $Dir_Backup = "E:\backupMail\"
    $Rar = @ProgramFilesDir & "\WinRAR\Rar.exe"
    $Dir_Thunderbird = @AppDataDir & "\Thunderbird\"

    DirCreate($Dir_Backup)
    FileCopy($Rar, @ScriptDir & "\Rar.exe")

    If FileExists($Dir_Backup & $Param & ".rar") Then FileDelete($Dir_Backup & $Param & ".rar")

    ;~ MsgBox(0,"" ,"Rar a" & " " & '"' & $Dir_Backup & $Param & '"' & " " & '"' & $Dir_Thunderbird & "*.*" & '"')
    _RunDOS("Rar a" & " " & '"' & $Dir_Backup & $Param & '"' & " " & '"' & $Dir_Thunderbird & "*.*" & '"')

    If FileExists($Dir_Backup & $Param & ".rar")Then
        MsgBox(64,"","Архивация профиля закончена")
    EndIf
        Exit
Else
    MsgBox(16,"","Ненайден файл Rar.exe ... продолжение невозможно !!")
        Exit
EndIf

[SeRGi-uS]

FlatX007 огромнейшее Вам спасибо. Решение очень интересное. Попробовал Ваш скрипт - файл создается отлично, только в папке
@AppDataDir & "\Thunderbird\" упаковывается *.ini файл, а хотелось чтобы упаковывались в архив всё что находится в папке @AppDataDir & "\Thunderbird и файлы и папки ( там находится сам профиль программы со множеством вложенных папок). Вижу что выставлено расширение *.* для архива, то есть должно упаковывать файлы и папки. Думаю как настроить архивацию, чтобы захватить и папки.

[FlatX007]

Да вот так просто же у меня сработало ...

Код:

#include <Process.au3>

If FileExists(@ScriptDir & "\Rar.exe")Then

    ProcessClose("thunderbird.exe")
    If ProcessExists("thunderbird.exe") Then
        MsgBox(16,"","Программа Thunderbird запущена ... продолжение невозможно !!")
        Exit
    EndIf

    $Param = @ComputerName & "_" & @UserName & "_" & @WDAY
    $Dir_Backup = "E:\backupMail\"
    $Rar = @ProgramFilesDir & "\WinRAR\Rar.exe"
    $Dir_Thunderbird = @AppDataDir & "\Thunderbird"

    DirCreate($Dir_Backup)
    FileCopy($Rar, @ScriptDir & "\Rar.exe")

    If FileExists($Dir_Backup & $Param & ".rar") Then FileDelete($Dir_Backup & $Param & ".rar")

    ;~ MsgBox(0,"" ,"Rar a" & " " & '"' & $Dir_Backup & $Param & '"' & " " & '"' & $Dir_Thunderbird & "*.*" & '"')
    _RunDOS("Rar a" & " " & '"' & $Dir_Backup & $Param & '"' & " " & '"' & $Dir_Thunderbird & "" & '"')

    If FileExists($Dir_Backup & $Param & ".rar")Then
        MsgBox(64,"","Архивация профиля закончена")
    EndIf
        Exit
Else
    MsgBox(16,"","Ненайден файл Rar.exe ... продолжение невозможно !!")
        Exit
EndIf