Что нового

Вывод списка найденных файлов в окне

Сообщения
88
Репутация
-1
Доброе время суток. Помогите довести скрипт до ума. Имеется скрипт, который производит поиск и действия с файлами и папками. Нужно вывести список найденных файлов в окно с чекбоксами и над выбранными файлами будут производиться действия , чтобы не подтверждать постоянно кнопками да или нет
Код:
#include <MsgBoxConstants.au3>

Portable()

Func Portable()
    Local $hSearch = FileFindFirstFile("_portable\*.*")

    If $hSearch = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "Ошибка: Ни один файл/каталог не соответствует шаблону поиска.")
        Return False
    EndIf

    Local $sFileName = "", $iResult = 0

    While 1
        $sFileName = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        $iResult = MsgBox(BitOR($MB_SYSTEMMODAL, $MB_YESNOCANCEL), "", "File: " & $sFileName)
If $iResult = $IDYES Then ShellExecuteWait(@ScriptDir & '\bin\7z.exe','a "' & @ScriptDir & '\Pack\' & $sFileName & '.7z" "' & @ScriptDir & '\_portable\' & $sFileName & '\*" -mx9 -myx=9 -r0 -t7z -m0=BCJ2 -m1=lzma2:d192m:fb64 -m2=lzma:d20:lc0:lp2:fb64 -m3=lzma:d20:lc0:lp2:fb64 -mb0:1 -mb0s1:2 -mb0s2:3 -mmt4','','',@SW_HIDE)
If $iResult = $IDYES Then RunWait(@ComSpec & ' /c copy /b ' & @ScriptDir & '\_sfx\' & $sFileName & '.sfx' & '+' & @ScriptDir & '\_ini\_portable\' & $sFileName & '.ini' & '+' & @ScriptDir & '\Pack\' & $sFileName & '.7z' & ' ' & @ScriptDir & '\Exe\' & $sFileName & '.exe')
If $iResult = $IDCANCEL Then ExitLoop
    WEnd
    FileClose($hSearch)
EndFunc
 
Верх