[VB.NET] Proseguire l'esecuzione quando si verifica un'eccezione

[x69asterix]

come si procede per andare avanti quando si manifesta una eccezzione in questo codice

        Try
            '  On Error Resume Next
            For i As Integer = 0 To Form1.ListBox2.Items.Count - 1
                If remoteDevice.DeviceFileExists(Form1.ListBox2.Items(i)) = True Then
                    Dim remotedevice As New RAPI
                    Dim Attribs As RAPI.RAPIFileAttributes
                    Attribs = RAPI.RAPIFileAttributes.Normal
                    remotedevice.SetDeviceFileAttributes(Form1.ListBox2.Items(i), Attribs)
                    remotedevice.CopyFileFromDevice(Application.StartupPath & "\Root\" & Form1.ListBox2.Items(i), Form1.ListBox2.Items(i), True)
                    Label1.Text = Form1.ListBox2.Items(i)
                    Label2.Text = remotedevice.GetDeviceFileSize(Form1.ListBox2.Items(i))
                    Label3.Text = "Copiati: " & i + 1 & " di: " & Form1.ListBox2.Items.Count
                    PB1.Minimum = 0
                    PB1.Maximum = Form1.ListBox2.Items.Count
                    Application.DoEvents()
                    PB1.Value = i
                End If

            Next


        Catch ex As Exception
            'MessageBox.Show(ex.Message)
            ListBox1.Items.Add(Label1.Text)
        End Try
        MessageBox.Show("Il Back-Up è stato eseguito!", "OK", MessageBoxButtons.OK, MessageBoxIcon.Information)

[MItaly]

Non si può. Piuttosto sposta il try in modo che comprenda solo il codice che viene ripetuto nel for:

        For i As Integer = 0 To Form1.ListBox2.Items.Count - 1
            If remoteDevice.DeviceFileExists(Form1.ListBox2.Items(i)) Then
                Try
                    Dim remotedevice As New RAPI
                    Dim Attribs As RAPI.RAPIFileAttributes
                    Attribs = RAPI.RAPIFileAttributes.Normal
                    remotedevice.SetDeviceFileAttributes(Form1.ListBox2.Items(i), Attribs)
                    remotedevice.CopyFileFromDevice(Application.StartupPath & "\Root\" & Form1.ListBox2.Items(i), Form1.ListBox2.Items(i), True)
                    Label1.Text = Form1.ListBox2.Items(i)
                    Label2.Text = remotedevice.GetDeviceFileSize(Form1.ListBox2.Items(i))
                    Label3.Text = "Copiati: " & i + 1 & " di: " & Form1.ListBox2.Items.Count
                    PB1.Minimum = 0
                    PB1.Maximum = Form1.ListBox2.Items.Count
                    Application.DoEvents()
                    PB1.Value = i
                Catch ex As Exception
                    ListBox1.Items.Add(Label1.Text)
                End Try
            End If

        Next
        MessageBox.Show("Il Back-Up è stato eseguito!", "OK", MessageBoxButtons.OK, MessageBoxIcon.Information)

.

[x69asterix]

ciao,
stò provando, toglimi una curiosità, ma in questo caso mi aggiunge tutte le eccezzioni, o solo la prima generata?

[MItaly]

Ovviamente tutte: quel codice si ripete ad ogni iterazione del ciclo.

[x69asterix]

ok,
continuo a provare
prima di aprire un'altro post, come posso ovviare quando l'applicazione è troppo impegnata ad elaborare, con logica conseguenza che il form mi avverte "Non risponde"?

[oregon]

Questa e' un'altra domanda rispetto a quella dell'eccezione (una sola z, mi raccomando ...) ...

Rimedi con un DoEvents

[x69asterix]

ciao oregon,
ma dove lo inserisco visto che nel codice eseguito è già presente!

[x69asterix]

Originariamente inviato da MItaly
Non si può. Piuttosto sposta il try in modo che comprenda solo il codice che viene ripetuto nel for:

        For i As Integer = 0 To Form1.ListBox2.Items.Count - 1
            If remoteDevice.DeviceFileExists(Form1.ListBox2.Items(i)) Then
                Try
                    Dim remotedevice As New RAPI
                    Dim Attribs As RAPI.RAPIFileAttributes
                    Attribs = RAPI.RAPIFileAttributes.Normal
                    remotedevice.SetDeviceFileAttributes(Form1.ListBox2.Items(i), Attribs)
                    remotedevice.CopyFileFromDevice(Application.StartupPath & "\Root\" & Form1.ListBox2.Items(i), Form1.ListBox2.Items(i), True)
                    Label1.Text = Form1.ListBox2.Items(i)
                    Label2.Text = remotedevice.GetDeviceFileSize(Form1.ListBox2.Items(i))
                    Label3.Text = "Copiati: " & i + 1 & " di: " & Form1.ListBox2.Items.Count
                    PB1.Minimum = 0
                    PB1.Maximum = Form1.ListBox2.Items.Count
                    Application.DoEvents()
                    PB1.Value = i
                Catch ex As Exception
                    ListBox1.Items.Add(Label1.Text)
                End Try
            End If

        Next
        MessageBox.Show("Il Back-Up è stato eseguito!", "OK", MessageBoxButtons.OK, MessageBoxIcon.Information)

.

dunque il ciclo è appena finito, ma c'è qualcosa che non torna, di 962 file, ben 587 eccezzioni presentano lo stesso nome di file

[oregon]

Originariamente inviato da x69asterix
... eccezzioni

Una z .... ....

Prova ad inserire prima l'assegnazione alla label e usare quella ...

   Attribs = RAPI.RAPIFileAttributes.Normal
   Label1.Text = Form1.ListBox2.Items(i)
   remotedevice.SetDeviceFileAttributes(Label1.Text, Attribs)
   remotedevice.CopyFileFromDevice(Application.StartupPath & "\Root\" & Label1.Text, Label1.Text, True)
   Label2.Text = remotedevice.GetDeviceFileSize(Label1.Text)

[x69asterix]

ok,
adesso è corretto!!
senza la ..Z..