Поиск на фтп во вложенных папках свежего файла и сохранение его на локальный диск.
Не работает, нужна помощь.
Не работает, нужна помощь.
Код:
#include <FTPEx.au3>
$server = 'ftp.demo.ru'
$username = 'demo'
$pass = '123'
$Dir = '/proga/new/'
$Open = _FTP_Open('ZIC')
$sFolder = 'ftp://ftp.demo.ru/proga/new/'
$sCopyPath = 'c:\demo'
$LastModifiedFile = Search($sFolder & "\")
FileCopy($LastModifiedFile, $sCopyPath, 1)
$TargetFolder = StringLeft($LastModifiedFile, StringInStr($LastModifiedFile, "\", 0, -1))
ShellExecute($TargetFolder)
Exit
Func search($source_folder)
Static $max = "0"
Static $file = ""
$search = FileFindFirstFile($source_folder & "demo.exe")
While 1
$source_file = FileFindNextFile($search)
if @error then ExitLoop
if @extended Then ;- каталог. Просматриваем содержимое...
search($source_folder & $source_file & "\")
ContinueLoop
EndIf
$FileModifiedTime = FileGetTime($source_folder & $source_file, 0, 1)
if StringCompare($FileModifiedTime, $max,2) > 0 Then
$max = $FileModifiedTime
$file = $source_folder & $source_file
EndIf
WEnd
Return $file
EndFunc