Hallo,
ich habe wieder das Problem, dass er eine Datei nicht hochläd, obwohl die Pfade stimmen.
Kann mir mal jemand sagen, woran es liegt? Hier mal mein Script :
Spoiler anzeigen
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#Include <FTPEx.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <WindowsConstants.au3>
$GUI = GUICreate("FTP Chat", 537, 383, 185, 124)
$Chatbox = GUICtrlCreateEdit("", 8, 8, 513, 329, BitOR($ES_READONLY,$ES_WANTRETURN))
$senden = GUICtrlCreateButton("senden", 456, 352, 75, 25)
$YourMessage = GUICtrlCreateInput("", 8, 352, 441, 21)
GUISetState(@SW_SHOW)
$OpenFTP = _Ftp_Open('Sitzung1')
If @Error Then
MsgBox(64,"Fehler","Fehler beim Öffnen einer Sitzung mit dem FTP Server")
EndIf
$Servername = '' ; Hier würde normalerweise mein vollständiger Servername stehen.
$Benutzername = '' ; Hier würde normalerweise mein Benutzername stehen.
$Passwort = '' ; Hier würde normalerweise mein Passwort stehen.
$FtpConnect = _FTP_Connect($OpenFtp,$Servername,$Benutzername,$Passwort)
If @Error Then
MsgBox(64,"Fehler","Fehler beim Verbinden mit dem FTP Server")
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_FTP_Close($OpenFtp)
Exit
Case $senden
$OpenFile = FileOpen ("Message1.txt",2)
If @Error Then
MsgBox(64,"Fehler","Fehler beim Erstellen der Datei auf dem FTP Server")
EndIf
$Write = FileWrite($OpenFile,GuiCtrlRead($YourMessage))
GuiCtrlSetData($YourMessage,"")
_FTP_FilePut($FTPConnect,'C:\Users\User\Desktop\Md5 Generator\Message1.txt','/FTPTestfiles/Message.txt')
If @Error Then
MsgBox(64,"Fehler","Fehler beim Hochladen der Textdatei")
EndIf
EndSwitch
WEnd