Hi,
ich versuche eine Datei per FTP hochzuladen.
autoBert war mir schon eine große hilfe aber irgendwo klemmt es noch...
[autoit]#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)
[/autoit][autoit][/autoit][autoit]_example1()
[/autoit][autoit][/autoit][autoit]Func _example1()
;lädt eine Datei hoch
Local $s_ServerName = 'ftpde' ;< ==== anpassen
Local $s_Username = 'user' ;< ==== anpassen
Local $s_Password = 'pw' ;< ==== anpassen
Local $s_LocalFile = "D:\datei.xlsx" ;< ==== anpassen
Local $s_RemoteFile = "/ordner/datei.xlsx" ;< ==== anpassen
Local $i_Passive = 1 ; mit 0 und 1 getestet
Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP
;$l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
$l_InternetSession = _FTP_Open('AuoItZilla',$INTERNET_OPEN_TYPE_PRECONFIG ) ;Ö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_FilePut($l_FTPSession, $s_LocalFile, $s_RemoteFile) Then
ConsoleWrite("Upload: erfolgreich" & @CRLF)
Else
ConsoleWrite("Upload: fehlgeschlagen " & " " & @error & @CRLF)
EndIf
Else
MsgBox(0, "Connect", "fehlgeschlagen")
ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
EndIf
Else
MsgBox(0, "Open", "fehlgeschlagen")
ConsoleWrite("Open " & " " & $errOpen & @CRLF)
EndIf
_FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzung
EndFunc ;==>_example1
als fehler gibt es nur "open fehlgeschlagen" bzw.
hat jemand ne idee was das problem ist?
Danke & Gruß