Ayuda con subir imagen por ftp o HttpJob [SOLUCIONADO]

Hola, tengo este código para subir un archivo en ftp.

Code:

  Dim ftp As FTP
ftp.Initialize("ftp","SERVIDOR","21","USUARIO", "CONTRASEÑA")

sub boton_click
ftp.UploadFile(File.DirRootExternal, "sign.png",False,"/public_html/ala/")
end sub

Sub ftp_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = True Then
Msgbox("ok","")
Else
Msgbox("error","")
End If
End Sub  

Se demora un poco el mensaje, pero no realiza la acción, sale el error.


y...

Ayuda con subir imagen por ftp o HttpJob [SOLUCIONADO]

from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/1WeSG2U
via IFTTT