Dim ftp As FTP
dim ctm As CustomTrustManager
ctm.InitializeAcceptAll
ftp.Initialize("FTP", "IP", 21, USER", "PASSWORD")
ftp.PassiveMode = True
FTP.UseSSL = True
FTP.UseSSLExplicit = True
FTP.SetCustomSSLTrustManager(ctm)
If ftp.IsInitialized=True Then
Log("OK FTP!") '
End If
ftp.UploadFile (File.DirRootExternal, "Camera.png", False, "/Camera.png")