[Gambas-user] FTPClient

[Daniel Campos]

This should work:

PUBLIC SUB Button1_Click()

  Ftp.User="fooUser"
  Ftp.Password ="fooPassword"
  
  Do_Put("/home/fooUser/img1.jpg")
  Do_Put("/home/fooUser/img2.jpg")

END

PUBLIC SUB Do_Put(FileName AS String)
  
  DIM RemFile AS String 
  
  RemFile="ftp://www.foo.foo/mydata/images/"
  RemFile=RemFile & File.Name (FileName)
  
  
  Ftp.URL=RemFile
  Ftp.Put(FileName)
  
  DO WHILE Ftp.Status >0
  
    WAIT (0.1)
  
  LOOP
  
END