urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Всем доброго времени суток уважаемые форумчане.
На днях понадобилось написать скрипт для отправки файлов на сервер.
Поискал в глобальной сети и нашёл тут, на этом форуме вроде бы хороший, простой пример.
Но вот незадача, никак не пойму почему на моём компьютере отказывается работать тот код :blink:
Пример скрипта из темы http://autoit-script.ru/index.php/topic,171.0.html
при попытке задействовать скрипт выдаёт ошибку
: ==> Variable must be of type "Object".:
$oFtp.Passive = $Passive
$oFtp^ ERROR
я к сожалению не могу сам понять в чём причина ошибки
ОС Windows 7 x64
На днях понадобилось написать скрипт для отправки файлов на сервер.
Поискал в глобальной сети и нашёл тут, на этом форуме вроде бы хороший, простой пример.
Но вот незадача, никак не пойму почему на моём компьютере отказывается работать тот код :blink:
Пример скрипта из темы http://autoit-script.ru/index.php/topic,171.0.html
Код:
Opt('MustDeclareVars', 1)
Global Const $Host = ''
Global Const $Login = ''
Global Const $Password = ''
Global Const $Port = 21
Global Const $Passive = True
Global Const $Local = 'C:\MyFiles\test.txt'
Global Const $Remote = '/MyDir/test.txt'
Global $oFtp = 0
$oFtp = ObjCreate('Primalscript.FTPTransfer')
;If @error Then
; _Quit(10)
;EndIf
$oFtp.Passive = $Passive
$oFtp.Port = $Port
If Not $oFtp.Connect($Host, $Login, $Password) Then
_Quit(11)
EndIf
If Not $oFtp.Put($Remote, $Local) Then
_Quit(12)
EndIf
Func _Quit($iCode)
If IsObj($oFtp) Then
$oFtp.Disconnect
EndIf
Exit($iCode)
EndFunc ;==>_Quit
при попытке задействовать скрипт выдаёт ошибку
: ==> Variable must be of type "Object".:
$oFtp.Passive = $Passive
$oFtp^ ERROR
я к сожалению не могу сам понять в чём причина ошибки
ОС Windows 7 x64