PureBoard

Verfasst: **31.07.2007 16:58**

Hey,
benutze folgenden Code, um eine Datei auf den Ftp-Server zu übertragen:

#INTERNET_SERVICE_FTP=1
#INTERNET_OPEN_TYPE_DIRECT=1
#FTP_PORT=21
#FTP_TRANSFER_ASCII=1
#FTP_TRANSFER_BINARY=2
Proxy.s=""
ProxyBypass.s=""
ServerName.s="klug.gmx.net"
UserName.s="helmut"
Password.s="kaese"
localfile.s="c:\test\iptext.txt"
remotefile.s="iptext.txt"

hInternet=InternetOpen_("FTP",#INTERNET_OPEN_TYPE_DIRECT,Proxy,ProxyBypass,0)
If hInternet
  hConnect=InternetConnect_(hInternet,ServerName,#FTP_PORT,UserName,Password,#INTERNET_SERVICE_FTP,0,0)
  If hConnect
    ;FTPDir(hConnect)
    If FtpPutFile_(hConnect,localfile,remotefile,#FTP_TRANSFER_ASCII,0)
      MessageRequester("","Datei wurde erfolgreich übertragen",0)
    Else
      MessageRequester("Error", "Konnte Datei nicht übertragen...",0)
    EndIf
  Else
    MessageRequester("Error", "Kann mich nicht einloggen",0)
  EndIf
  InternetCloseHandle_(hInternet)
Else
  MessageRequester("Error", "Keine Verbindung zum Internet",0)
EndIf

Jetzt mein Problem: habe nur schreibenden Zugriff in einem vorhandenen Ordner "Test" aber nicht auf das Hauptverzeichnis.
Mit dem obigen Code befinde ich mich nur im Hauptverzeichnis.
Verschiedene Möglichkeiten,z.B. remotefile.s="/test/iptext.txt" oder remotefile.s="\test\iptext.txt" ausprobiert.
Wie komme ich aber in das Unterverzeichnis "Test", um die Datei übertragen zu können.

Verfasst: **31.07.2007 17:29**

dysti hat geschrieben:Wie komme ich aber in das Unterverzeichnis "Test", um die Datei übertragen zu können.

Code: Alles auswählen

Procedure.l FTPSetDir(hConnect.l, Dir.s)
  ProcedureReturn FtpSetCurrentDirectory_(hConnect, @Dir)
EndProcedure

siehe hier: http://www.purebasic.fr/german/viewtopi ... 435#137435

Grüße ... Kiffi

Verfasst: **31.07.2007 18:05**

@Kiffi, danke für die schnelle Antwort.

PureBoard

Keinen Dateiupload auf FTP-Server

Keinen Dateiupload auf FTP-Server

Re: Keinen Dateiupload auf FTP-Server