[amel27]

Str_ani_ck, FileInstall не поддерживает каталоги, поэтому вижу только два варианта:

- перечислить явно все файлы в FileInstall (нужен полный список файлов);
- запаковать папку в архив (любым доступным архиватором) и приаттачить к EXE, примеры для WinRAR:

вариант 1:

Код:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Before="c:\Program Files\WinRAR\RAR.exe" a c:\attach.rar C:\TEST\*
#AutoIt3Wrapper_Res_File_Add=C:\attach.rar, Files, TEST
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

вариант 2:

Код:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Before="c:\Program Files\WinRAR\RAR.exe" a c:\attach.rar C:\TEST\*
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

If Not(@Compiled) Then FileInstall("c:\attach.rar", "C:\TEST\")

P.S. 1-й вариант более капризный, не для всех SciTE работает и не всегда

[Creat0R]

Есть ещё вариант с обработкой файлов и построением списка FileInstall'ов:

Код:

$sRet_FI_Lines = _FileInstallGetFolder("C:\Temp", "D:\Dest", 0, "*.txt")
ConsoleWrite("+Return:" & @CRLF & $sRet_FI_Lines & @CRLF & @CRLF & "!Error = " & @error & @CRLF & @CRLF)

MsgBox(64, "Return #1:", $sRet_FI_Lines & @CRLF & @CRLF & "!Error = " & @error)

$sRet_FI_Lines = _FileInstallGetFolder(@ProgramFilesDir & "\AutoIt3", "$aDest[$i]", 1, "*.exe")
ConsoleWrite("+Return:" & @CRLF & $sRet_FI_Lines & @CRLF & @CRLF & "!Error = " & @error & @CRLF & @CRLF)

MsgBox(64, "Return #2:", $sRet_FI_Lines & @CRLF & @CRLF & "!Error = " & @error)

Func _FileInstallGetFolder($sSource, $sDest, $nFlag = 0, $sMask = "*", $nCompiled = False)
    Local $hSearch, $sNext_File, $sRet_FI_Lines = ""

    If (Not $nCompiled) Or ($nCompiled And @Compiled) Then
        $hSearch = FileFindFirstFile($sSource & "\" & $sMask)
        If $hSearch = -1 Then Return SetError(1, 0, "")

        ;Check if it's a $Var (or $Array[$i][N]...)
        Local $iAddAsVar = StringRegExp($sDest, "(?i)\A\$([0-9a-z_])+(\[(\$[0-9a-z_]+|\d+)+\]+|)+$")

        While 1
            $sNext_File = FileFindNextFile($hSearch)
            If @error Then ExitLoop ;No more files

            If $iAddAsVar Then
                $sRet_FI_Lines &= 'FileInstall("' & $sSource & '\' & $sNext_File & '", ' & _
                    $sDest & ' & "\' & $sNext_File & '", ' & $nFlag & ')' & @CRLF
            Else
                $sRet_FI_Lines &= 'FileInstall("' & $sSource & '\' & $sNext_File & '", "' & _
                    $sDest & '\' & $sNext_File & '", ' & $nFlag & ')' & @CRLF
            EndIf
        WEnd

        FileClose($hSearch)
    EndIf

    If $sRet_FI_Lines = "" Then Return SetError(2, 0, "")
    Return StringStripWS($sRet_FI_Lines, 3)
EndFunc

[Str_ani_ck]

а зачем тогда "всасывать"? »

Ну почему нельзя ответить на вопрос????

[Creat0R]

почему нельзя ответить на вопрос? »

Потому что он не несёт логического смысла, если вам действительно нужна помощь, то я посоветовал бы всё же давать подробности когда тот кто пытается вам помочь, спрашивает о них. А вообще то ответ на вопрос предоставлен, в чём трудности, в понимании написанного?

[crashtuak]

Хм, когдато страдал подобной фигней. Хотел всосать ехе, не распаковать его, но запустить . Потом понял, что надо всосать, распаковать, запустить, удалить.

[Str_ani_ck]

А вдруг на компьютере нет Winrar

[Creat0R]

А вдруг на компьютере нет Winrar »

Установить думаю будет не сложно?

[crashtuak]

Хм, проще не rar архив сделать, а sfx .

[Str_ani_ck]

Спасибо на этом сайте так все просто и понятно)) Раньше пытался работать с Автоит но ничего не получалось. Спасибо

[crashtuak]

Спасибо на этом сайте так все просто и понятно)) Раньше пытался работать с Автоит но ничего не получалось. Спасибо »

Вашу проблему наверно так и никто не понял . Все писали всё что знали . Наверно sfx был решением ?