File.Copy(Dir,FileName,File.DirInternal,"copia.jpg")
ftp.UploadFile(File.DirInternal, "copia.jpg", True, "/public_html/immagini/copia.jpg")
Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
Dim s As String
s = "Uploaded " & Round(TotalUploaded / 1000) & "KB"
If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB"
Log(s)
End Sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then Log(LastException.Message)
End Sub
Sub img_Click
chooser.Initialize("CC")
chooser.Show("image/*", "Choose image")
Dim image As Bitmap
End Sub