Sto provando a gestire l'upload di un file, il file pesa circa 100MB quindi ci vorrà parecchio...
Per gestire il blocco dell'applicazione fino all'invio del file ho così provato:
Non funziona l'invio del file... funzionava prima che mettessi il Backgroundworker...codice:Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork Try Dim clsrequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(percorso host), System.Net.FtpWebRequest) clsrequest.Credentials = New System.Net.NetworkCredential("id", "passw") clsrequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim screenIdid() As Byte = System.IO.File.ReadAllBytes("file da inviare") Dim clsstream As System.IO.Stream = clsrequest.GetRequestStream() clsstream.Write(screenIdid, 0, screenIdid.Length) clsstream.Close() clsstream.Dispose() '__________________ Form1.TextBox1.Text = "secret" Catch MsgBox("Error") End Try End Sub Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted Msgbox("Done!!!) End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BackgroundWorker1.RunWorkerAsync() End Sub
Praticamente non accade nulla![]()

Rispondi quotando
