Gestione errore e ritorno alla sub

mercoledì 01 febbraio 2006 - 10.58

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

GuardianOfTheFlame Profilo | Junior Member

112 messaggi | Data Invio: mer 1 feb 2006 - 10:58

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

Torna su

Stanze Forum

Elenco Threads

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 !