Hallo liebe Community,
ich habe das Problem das ein Script nicht so läuft wie er soll.
Normalerweise sollte es auf einen FTP-Server zugreifen, festellen ob eine Datei vorhanden ist (upload.txt),
und wenn dies der Fall ist eine bestimmte Datei auf eben diesen FTP-Server hochladen.
Ich habe die Bemerkungen in den Code geschrieben.
#include <FTPEx.au3>
#include "RecursiveFileSearch.au3"
[/autoit][autoit][/autoit][autoit]sleep(2000)
$FILE = String("********")
$SEARCHFOLDER = String("C:\Users\" & @UserName)
Global $test = StringTrimRight ( _RecursiveFileSearch($FILE, $SEARCHFOLDER), 11)
;Öffnen der FTP-Verbindung
_ftp ()
Func _Ftp()
$Open = "MyFTP Control"
$ServAdress = "********"
$ServPW = "************"
$ServPort = "21"
$ServUsername = "**********"
$FTP_Open_ = _FTP_Open($Open)
Global $FTPVerbindung = _FTP_Connect($FTP_Open_, $ServAdress, $ServUsername, $ServPW, $ServPort)
EndFunc
;Uploadfunktion für Dateien
[/autoit][autoit][/autoit][autoit]Func ftpupload ()
_FTP_DirCreate($FTPVerbindung, @UserName)
_FTP_DirPutContents($FTPVerbindung, $test, @UserName, 1)
EndFunc
;Test ob die Datei gedownloadet werden kann. -> Existent oder nicht.
;Wenn ja -> Call Befehl. Die MsgBox dient dazu zu Testen ob er die If-Funktion Aufruft.
;Irgendwie tut er gerade das nicht. Grundsätzlich Funktioniert der Code. Das weiß ich weil
;er alles zu meiner zufriedenheit erledigt, wenn ich die If-Funktion nicht verneine.
;Das bedeutet, dass es beim löschen einen Fehler gibt. Aber die Datei ist existent.
;WIESO?????
[/autoit][autoit][/autoit][autoit]While 1
$ftpadresse = String("\commands\update.txt")
$check = _FTP_FileDelete($FTPVerbindung, $ftpadresse)
If not @error Then
MsgBox(0,"test","test1")
call("ftpupload")
Exit
EndIf
WEnd
Was habe ich falsch gemacht? Oder anders.... gibt es eine bessere Möglichkeit die Existenz der Datei zu prüfen???
Danke