Gestione errore e ritorno alla sub

mercoledì 01 febbraio 2006 - 10.58

GuardianOfTheFlame Profilo | Junior Member

Ciao a tutti ho del codice VB 6.0 strutturato in modo simile al seguente:

On ErrorGoTo Errore
For i=0 to...
...
Nomefile=...
kill NomeFile
...
Next i
Exit Sub

Errore:
msgbox "Errore"

In pratica cancello un certo numero di file. Come faccio a fare in modo che se non viene trovato un file ( viene lanciato l'errore 53 ) continui la routine procedendo nella cancellazione?

Ho provato così:

On ErrorGoTo Errore
For i=0 to...
...

continua:

Nomefile=...
kill NomeFile
...
Next i
Exit Sub

Errore:
If Err.Number=53 Then
msgbox "Errore ma continui!"
Goto continua
Else
msgbox "Errore"
End If

solo che la prima volta cattura l'errore, ma quando clicco su OK, procede al prossimo file che non riesce a trovare e visualizza una finestra di errore non gestito. Perché in Errore ci entra solo la prima volta?
Grazie!
Salo
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5