Здравствуйте.
Есть необходимость скачивания файлов с FTP.
К каталогу подключение есть, список файлов получает, вот только загружать их совсем не хочет.
Подскажите, где что не правильно
Данные для FTP в примере рабочие. Там лежит три файла, их надо забрать.
Есть необходимость скачивания файлов с FTP.
К каталогу подключение есть, список файлов получает, вот только загружать их совсем не хочет.
Подскажите, где что не правильно
Данные для FTP в примере рабочие. Там лежит три файла, их надо забрать.
Потом надо проверить, что они скачались и удалить на ФТП. А на локальном компе сохранить под единой номинацией... И много ещё чего. Но это все потом.
Код:
#Include <FTPEx.au3>
FtpConn()
Global $aFind, $hFind, $Result = 1
Local $Dir = "www/demo30337.atservers.net/out/"
$aFind = _FTP_FindFileFirst($ftp_session_connect, $Dir, $hFind)
While Not @error
ConsoleWrite(@CR)
_FTP_FileGet($ftp_session_connect, $aFind[10], @ScriptDir & '/210/')
If FileExists ($aFind[10]) = 1 Then
ConsoleWrite($Dir & $aFind[10])
Else
ConsoleWrite("File Not Found")
EndIf
$aFind = _FTP_FindFileNext($hFind)
WEnd
_FTP_FindFileClose($hFind)
_FTP_Close($ftp_session)
Exit
Func FtpConn()
Global $FTPIn = "in"
Global $FTPOut = "out"
Global $ftp_server_ip = "demo30337.atservers.net"
Global $user_name = "user1176142"
Global $user_pass = "Ib4nFiPGWw"
Global $connect_type = 1
Global $ftp_session = _FTP_Open("FTP-connect") ; открываем сессию
Global $ftp_session_connect = _FTP_Connect($ftp_session, $ftp_server_ip, $user_name, $user_pass, $connect_type) ; подключаемся
If @error Then
MsgBox(0+48, "Сообщение", "Ошибка! Проверьте настройки!")
GUICtrlSetColor(-1, 0xff0000)
_FTP_Close($ftp_session)
Else
MsgBox(0+48, "Сообщение", "Соединение установлено")
EndIf
EndFunc