public Sub sendFtp
Try
If File.Exists( File.DirDefaultExternal, "tempPic.jpg") Then
Dim ftp As FTP
ftp.Initialize("ftp", "ftp.baubuch.at", 21, "xxxuserxxx", "xxxpwdxxx")
ftp.PassiveMode = True
ftp.UseSSL = False
ftp.UseSSLExplicit = True
ftp.TimeoutMs = 6000
Wait for (ftp.List("/")) FTP_ListCompleted (serverPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
If Success = False Then
Log(LastException)
Else
For i = 0 To Folders.Length - 1
Log(Folders(i).Name)
Next
For i = 0 To Files.Length - 1
Log(Files(i).Name & ", " & Files(i).Size & ", " & DateTime.Date(Files(i).Timestamp))
Next
Log("FTP Success")
End If
Wait For(ftp.UploadFile(File.DirDefaultExternal, "tempPic.jpg", False, "/")) FTP_UploadCompleted(serverPath As String, Success As Boolean)
If Success Then
ftp.Close
Log("Ftp file upload successfully!")
Else
ftp.Close
Log(LastException)
Return
End If
End If
Catch
Log("sendFTP: " & LastException)
End Try
End Sub