Печать

[k790 [?]]

Подскажите, как сделать архивирование файлов, если файлы выбираются через чекбокс.
То есть у меня 12 файлов/папок, надо заархивировать только выбранные и в один архив

Код: AutoIt [Выделить]

$Button_ALL = GUICtrlCreateButton("Выделить всё", 378, 20, 139, 21, $WS_GROUP)
        Case $Button_ALL
            Local $var, $count=0, $MaxCount = 12
            For $i = $Checkbox1 To $Checkbox12 Step 1
                $var = GUICtrlRead($i)
                If $var = 1 Then
                    For $i = $Checkbox1 To $Checkbox12 Step 1
                        GUICtrlSetState($i, $GUI_UNCHECKED)
                    Next
                ElseIf $var = 4 Then
                    $count = $count + 1
                    If $Count = $MaxCount Then
                        For $i = $Checkbox1 To $Checkbox12 Step 1
                            GUICtrlSetState($i, $GUI_CHECKED)
                        Next
                    EndIf
                EndIf
            Next

[madmasles [?]]

k790  [?]

надо заархивировать только выбранные и в один архив

Чем заархивировать?

[k790 [?]]

madmasles  [?]

Чем заархивировать?

библиотекой 7-zip

[CreatoR [?]]

k790
К чему этот код?

Я не понимаю твой вопрос, у тебя же получилось сделать то что ты хочешь, ты бы написал, что конкретно тебе нужно?

[k790 [?]]

Это для бэкапа оперы, когда он выполняет бэкап - он должен по галочкам вывести конечный файл в Op.zip, то есть не отдельно по одному файлу, а сразу, список нужных собирает и за один рас всё делает

[CreatoR [?]]

k790  [?]

то есть не отдельно по одному файлу, а сразу, список нужных собирает и за один рас всё делает

У 7-zip есть опция архивирования по списку (см. описание функций).
Как проверять отметку птички думаю ты знаешь, а остальное дело простое - собираешь список файлов в переменную, потом пишешь её в файл, и далее скармливаешь этот файл 7-zip'у.

[k790 [?]]

CreatoR  [?]

У 7-zip есть опция архивирования по списку (см. описание функций).

А ты можешь сказать где именно это написано, а то никак не могу найти

[Zaramot [?]]

Код: AutoIt [Выделить]

#include <Zip.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 203, 137, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("notepad.exe", 24, 16, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("cmd.exe", 24, 40, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("shell32.dll", 24, 64, 97, 17)
$Button1 = GUICtrlCreateButton("Arhive", 64, 96, 75, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED And GUICtrlRead($Checkbox2) = $GUI_UNCHECKED And GUICtrlRead($Checkbox3) = $GUI_UNCHECKED Then
                MsgBox(0, '', 'Не выбранны файлы')
            Else
                $save = FileSaveDialog('Choose folder.', @ScriptDir, 'Zip arhive (*.zip)')
                $arhive = _Zip_Create($save & '.zip')
                If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then _Zip_AddFile($arhive, @SystemDir & '\notepad.exe')
                If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then _Zip_AddFile($arhive, @SystemDir & '\cmd.exe')
                If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then _Zip_AddFile($arhive, @SystemDir & '\shell32.dll')
                MsgBox(0, '', 'Архив создан !')
            EndIf
    EndSwitch
WEnd

7zip UDF можешь скачать ТУТ

[k790 [?]]

это zip, а нужен 7-zip

[CreatoR [?]]

k790  [?]

ты можешь сказать где именно это написано, а то никак не могу найти

В описаний к 7zip UDF:

$sIncludeFile - Include filenames, specifies filenames and wildcards or list file that specify processed files

Вот так примерно:

Код: AutoIt [Выделить]

_7ZipAdd(0, "C:\Archive.zip", '', 1, 5, 1, "@C:\Temp\Files.lst")

Files.lst содержит список архивируемых файлов.

[k790 [?]]

А как папки архивировать этим способом?

[k790 [?]]

аууууууууу

[agikon [?]]

например надо заархивировать папку "top" которая лежит в системной папке

Код: AutoIt [Выделить]

If  GUICtrlRead($Checkbox1) = $GUI_CHECKED Then  _Zip_AddFile($arhive, @SystemDir & '\top\')

[CreatoR [?]]

k790  [?]

А как папки архивировать этим способом?

В смысле?
Указываешь путь к каталогу и всё, в чём проблема?

[k790 [?]]

CreatoR  [?]

Указываешь путь к каталогу и всё, в чём проблема?

Проблема в том, что папки он не архивирует, файлами вопросов нет, а вот папки никак


Добавлено: Сентябрь 27, 2011, 18:55:11может синтаксис

• ---Zak---
• Nurgazy
• madmasles
• nowost
• Yurmurk
• paulgator
• asdf8
• koksacs
• KPOXA
• tilek
• mechlab
• scanfail
• Александр
• GenoTIP
• c41320@rtrtr.com
• usrman
• Yashied
• Simdu
• Kaster
• SummerLeaf
• nu3dell
• Shirling
• XpycT
• JAE
• boble911