grazie luca, anch'io se possibile vorrei sistemare FTP (anche perché altrimenti dovrei reimpostare tutto).
vediamo il mio codice:
Sub Activity_Create(FirstTime As Boolean)
...
FTP.Initialize("FTP", "ftp.la***.it", 21, "*****@aruba.it", "*******")
FTP.DownloadFile("/la***.it/file/***.*", False, File.DirRootExternal, "/ultimo.nd")
end Sub
Sub FTP_DownloadProgress (ServerPath As String, TotalDownloaded As Long, Total As Long)
Dim s As String
s = "Downloaded " & Round(TotalDownloaded / 1000) & "KB"
If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB"
Log(s)
End Sub
Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then ToastMessageShow("Collegamento NON Creato", False)
If Success=True Then
ToastMessageShow("Collegamento Creato", False)
ricava(File.DirRootExternal, "ultimo.nd)
carica
End If
End Sub
rende l'idea? cosa c'è che non va?