Italian Ftp Errore con genymotion

[Stefano Bordini]

Prova questo.




Mi raccomando il "False" che inserisci su UploadFile ( indica che sono file binari )

...
FTP.UploadFile(FD.FilePath, FD.ChosenName, False, "/public_html/xxxx/file.pdf")

Ecco la fonte di tutti i mie problemi con i file che sembravano corrotti

Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)

    ProgressBar1.Progress = TotalUploaded / grandezzafile * 100
    edt_file.Text = "Wait Upload " & Round(TotalUploaded / 1000) & "KB / " & Round(grandezzafile / 1000) & "KB"

End Sub

come ricavi grandezzafile io provo con file.size ma mi torna null

 

[MarcoRome]

Ecco la fonte di tutti i mie problemi con i file che sembravano corrotti

Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)

    ProgressBar1.Progress = TotalUploaded / grandezzafile * 100
    edt_file.Text = "Wait Upload " & Round(TotalUploaded / 1000) & "KB / " & Round(grandezzafile / 1000) & "KB"

End Sub

come ricavi grandezzafile io provo con file.size ma mi torna null

Dim FD As FileDialog  
.....
    FD.FilePath = File.DirRootExternal ' also sets ChosenName to an emtpy string
    'fd.ShowOnlyFolders = true
    FD.FileFilter = ".pdf,.docx,.txt,.jpg,.jpeg" ' for example or ".jpg,.png" for multiple file types
    If FD.Show("Attach File", "Yes","","No", Null)    = DialogResponse.POSITIVE Then
        edt_file.Text = FD.ChosenName
        nome_file = FD.ChosenName
        grandezzafile = File.Size(FD.FilePath, FD.ChosenName)
        FTP.UploadFile(FD.FilePath, FD.ChosenName, False, "/public_html/XXXXX/fotoutenti/" & FD.ChosenName)
    End If