Что нового

Отправка файла на FTP если его размер увеличелся

zeionline

Новичок
Сообщения
36
Репутация
1
Скрипт который должен по идее передавать файл если он увеличился на 1кб, но он почему то не работает. Проверте, может где ошибку допустил.

Код:
$currentmaxsize = 1

While 1
    $file = FileGetSize( "C:\results.txt" )
    If $file > $currentmaxsize Then
        $server = "elitno.net" ;ftp host
        $username = "**" ;Ftp user
        $pass = "**" ;Ftp password
        $Open = _FTPOpen('MyFTP Control')
        $Conn = _FTPConnect($Open, $server, $username, $pass)
        $Ftpp = _FtpPutFile($Conn, 'C:\results.txt', 'log.txt')
        $Ftpc = _FTPClose($Open)
        $currentmaxsize += 1
    EndIf
WEnd

После изменения размера файла выдает ошибку : Unknown function name, и так со всеми скриптами которые передают файл на FTP.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
zeionline [?]
почему то не работает
Потому что не нужно бездумно переписывать всё то, что валяется в Интернете, а нужно немного напрягать свои серые клеточки. ;)
Код:
#include <FTPEx.au3>
$currentmaxsize = 1024

While 1
    $file = FileGetSize( "C:\results.txt" )
    If $file > $currentmaxsize Then
        $server = "ftp.myserver.ru" ;ftp host
        $username = "***" ;Ftp user
        $pass = "***" ;Ftp password
        $Open = _FTP_Open('MyFTP Control')
        $Conn = _FTP_Connect($Open, $server, $username, $pass, 1)
        $Ftpp = _FTP_FilePut($Conn, 'C:\results.txt', 'log.txt')
        $Ftpc = _FTP_Close($Open)
        $currentmaxsize += 1024
		ConsoleWrite('File Put' & @CRLF)
		ExitLoop
    EndIf
WEnd
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Код:
;... здесь может понадобиться пассивный режим (5-ый параметр):
$Conn = _FTP_Connect($Open, $server, $username, $pass, 1)
;... лучше, наверное, так :)
$currentmaxsize += 1024
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
madmasles
Согласен! :thanks:
Поправил.
 
Автор
Z

zeionline

Новичок
Сообщения
36
Репутация
1
Спасибо вам, весь день проторчал над этой проблемой а все дело оказалось в единичке ))) очень блогадарен
 
Верх