danke, leider gibt es nun eine weitere Fehlermeldung, könnte mir eben jemand helfen? Diesmal zwischen Zeile 28 - 30 liegt der Fehler :
Code:
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FTPEx.au3>
#include <File.au3>
#include <Array.au3>
Opt('MustDeclareVars', 1)
_example1()
Func _example1()
;lädt eine Datei hoch
Local $s_ServerName = 'shizodbach.***********' ;dieser Server existiert nicht
Local $s_Username = "shizosabach"
Local $s_Password = "ttest"
Local $s_LocalFile = $CmdLine[1]
$Split = StringSplit($CmdLine[1],"\")
Local $s_RemoteFile = "/Pics/" & $Split[$Split[0]]
Local $i_Passive = 0
Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP
$l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
$errOpen = @error
If Not @error Then
$l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
$errFTP = @error
If Not @error Then
If _FTP_ProgressUpload($l_FTPSession, $s_LocalFile, $s_RemoteFile) Then
ConsoleWrite("Upload: erfolgreich" & @CRLF)
EndIf
EndIf
EndIf
EndFunc ;==>_example1