Public oFTP As FTP
Dim serverPath As String= "ftp.xxxxx.net"
Dim username As String= "xxxx123"
Dim password As String= "xxxxAbCd"
oFTP.Initialize("ftp", serverPath, 21, username, password)
oFTP.PassiveMode = True
Public Sub UploadCurrentDB As ResumableSub
Dim sf As Object = oFTP.UploadFile(File.DirInternal,"appdata.db", False, "/app-files/xxxmyapp/data.db" )
Wait For (sf) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("file was uploaded successfully")
Else
Log("Error uploading file")
End If
Return Null
End Sub