#include <File.au3>
#include <Array.au3>
#include <FTPEx.au3>
Local $FilePath = @ScriptDir
Local $aFileList = _FileListToArray($FilePath, '*.', 2)
If $aFileList = 0 Then
Exit MsgBox(16, 'Ошибка!', 'В выбранном каталоге нет других папок.')
EndIf
For $i = $aFileList[0] To 1 Step -1
ShellExecute(@ScriptDir & '\7z.exe', 'a ' & $aFileList[$i] & '.7z' & ' .\' & $aFileList[$i] & '\* -mx9')
ProcessWaitClose('7z.exe')
Next
$aFileList = _FileListToArray($FilePath, '*.7z', 1)
;--------------------------------------------------------------------
Local $server = 'server'
Local $username = 'username'
Local $pass = 'pass'
Local $Open = _FTP_Open('MyFTP Control')
Local $Conn = _FTP_Connect($Open, $server, $username, $pass)
For $i = $aFileList[0] To 1 Step -1
_FTP_FilePut($Conn, $FilePath & '\' & $aFileList[$i], $aFileList[$i])
Next
Local $Ftpc = _FTP_Close($Open)
;--------------------------------------------------------------------
;~ _ArrayDisplay($aFileList)
MsgBox(0, '', 'Готово') |
