Ftp.au3

also ICH würds ja schonmal so machen:

[autoit]

#include <ftp.au3>
$server = "ftp.XXXXX.re.funpic.de"
$username = "XXXXX"
$pass = "XXXXX"
$message = "Bitte wähle die zu übertragende Datei aus.."
$UPLOADFILE= $message
$FTPFILENAME= $message

[/autoit][autoit][/autoit][autoit]

$var = FileOpenDialog($message, "c:\", "Alle (*.txt)", 1 + 4 )

[/autoit][autoit][/autoit][autoit]

If StringRight($var, 4) <> ".txt" Then
MsgBox (48, "Abbruch..","Es wurde keine Textdatei zum Upload ausgewählt!")
Else
$var = StringReplace($var, "|", @CRLF)
MsgBox(64,"Information","Ihre ausgewählte Datei war: " & $var)
EndIf

[/autoit][autoit][/autoit][autoit]

$name = StringSplit($var, "\")

[/autoit][autoit][/autoit][autoit]

$Open = _FTPOpen("MyFTP_Control")
;~ MsgBox(0,"",$Open)
$Conn = _FTPConnect($Open, $server, $username, $pass)
;~ MsgBox(0,"",$Conn)
$Ftpp = _FtpPutFile($Conn, $var, $name[$name[0]])
;~ MsgBox(0,"",$Ftpp)
$Ftpc = _FTPClose($Open)
;~ MsgBox(0,"",$Ftpc)

[/autoit]

Padmak

Mir wird folgendes beim Starten angezeigt:

Spoiler anzeigen

C:\Users\Roggan\Desktop\Neuer Ordner (2)\OFtp.au3(21,26) : WARNING: $Conn: possibly used before declaration.
$Ftpp = _FtpPutFile($Conn,
~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Roggan\Desktop\Neuer Ordner (2)\OFtp.au3(21,26) : ERROR: $Conn: undeclared global variable.
$Ftpp = _FtpPutFile($Conn,
~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Roggan\Desktop\Neuer Ordner (2)\OFtp.au3 - 1 error(s), 1 warning(s)

So hab den kleinen Fehler gemerkt:

Spoiler anzeigen

[autoit]

#include <ftp.au3>
$server = "ftp.XXXXX.re.funpic.de"
$username = "XXXXX"
$pass = "XXXXX"
$message = "Bitte wähle die zu übertragende Datei aus.."
$UPLOADFILE= $message
$FTPFILENAME= $message

[/autoit] [autoit][/autoit] [autoit]

$var = FileOpenDialog($message, "c:\", "Alle (*.txt)", 1 + 2 )

[/autoit] [autoit][/autoit] [autoit]

If StringRight($var, 4) <> ".txt" Then
MsgBox (48, "Abbruch..","Es wurde keine Textdatei zum Upload ausgewählt!")
Else
$var = StringReplace($var, "|", @CRLF)
MsgBox(64,"Information","Ihre ausgewählte Datei war: " & $var)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$name = StringSplit($var, "\")

[/autoit] [autoit][/autoit] [autoit]

$Open = _FTPOpen("MyFTP_Control")
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, $var, $name[$name[0]])
$Ftpc = _FTPClose($Open)

[/autoit]

Die Variable: $Conn = _FTPConnect($Open, $server, $username, $pass)
hatte unten gefehlt

Es funktioniert jetzt einwandfrei, vielen Dank an meine Helfer

Muss jetzt nurnoch hinkriegen, wie ich das Geuploadete in einem bestimmten Ordner auf meinem Server platziere

Spoiler anzeigen

[autoit]

$server = "ftp.XXXXX.re.funpic.de\OrdnerKeksdose"

[/autoit]

Geht ja nicht, dann landet der Upload auch nirgendwo

Sorry for Doppelpost.

Also nun sieht es bei mir so im script aus:

Spoiler anzeigen

[autoit]

#include <ftp.au3>
$server = "ftp.XXXXX.re.funpic.de"
$username = "XXXXX"
$pass = "XXXXX"
$message = "Bitte wähle die zu übertragende Datei aus.."
$UPLOADFILE= $message
$FTPFILENAME= $message

[/autoit] [autoit][/autoit] [autoit]

$var = FileOpenDialog($message, "c:\", "Alle (*.*)", 1 + 2 )

[/autoit] [autoit][/autoit] [autoit]

If StringRight($var, 4) <> ".txt" Then
MsgBox (48, "Abbruch..","Es wurde keine Textdatei zum Upload ausgewählt!")
Else
$var = StringReplace($var, "|", @CRLF)
MsgBox(64,"Information","Ihre ausgewählte Datei war: " & $var)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$name = StringSplit($var, "\")

[/autoit] [autoit][/autoit] [autoit]

$Open = _FTPOpen("MyFTP_Control")
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FTPPutFile($conn, "C:\test.txt", "./uploads/&$datei")
$Ftpc = _FTPClose($Open)

[/autoit]

Achja kann aus irgendeinem Grund nur .txt hochladen, bei anderen Sachen wird mir
direkt,der Fehler angezeigt, den ich bei Abbruch als MsgBox stehen hab.

[autoit]

If StringRight($var, 4) <> ".all" Then

[/autoit]

wird bei mir trotzdem der Fehler gezeigt

Ok Problem gelöst, muss nurnoch eine Fehlermeldung reinbringen, falls ich auf Abbrechen klicke, aber das sollte ich auch allein hinkriegen

THX an alle

nach dem FileOpenDialog einfach

[autoit]

If $var = "" Then Exit

[/autoit]

darauf könnte man auch selbst kommen!!

Padmak

als ich das geschrieben habe hat er noch gefragt
siehe

Zitat

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Roggan« (Gestern, 01:02)

Padmak

Was willst du denn damit?
Nimm doch einfach InetGet?

Padmak

Siehe Englisch:
Get = bekommen/holen
Put = legen..
Was brauchst du?

Padmak