PureBasic Forums - English

Code: Select all

EnableExplicit
Declare ftptest()

ftptest()

Procedure ftptest()
  
  Protected  connect,change,success,gesuccesst
  Protected.s  exepath,source,target,file
  exepath=GetPathPart(ProgramFilename())
   
  
  connect= OpenFTP(#PB_Any, "sftp://myserver.com", "myName", "MyPassword")
  
  If connect>0
    Debug "successfully connected"
    Debug GetFTPDirectory(connect)
    change = SetFTPDirectory(connect, "pictures")
    Debug GetFTPDirectory(connect)
    file="my file.jpg"
    source=exepath+"userbilder/"+file
    target=file
    ;target=chr(34)+target+chr(34) ;doesn't work in Linux
    ;target=chr(34)+chr(34)+target+chr(34)+chr(34) ;doesn't work in Linux
    Debug "from "+source+" to "+target
    
    If FileSize(source)>0
      Debug source+" found"
      success = SendFTPFile(connect, source, target) 
      If success>0
        Debug "success"
      Else
        Debug "NO success"
      EndIf
    EndIf
    CloseFTP(connect)
  Else
    Debug "No connection possible."
  EndIf
  
  
  
  
  
EndProcedure

Code: Select all

target=ReplaceString(target,Chr(32),"%20")

Code: Select all

URLEncode()