On error goto (vb6)

[gege]

Ciao a tutti!
ho questo problema:
fatto il seguente ciclo

Do While Not Rs.EOF
Me.TreeView1.Nodes.Add "numrif", tvwChild, "c" & Rs!numrifint & "", "" & Rs!numrifint
For i = 1 To 100
On Error GoTo NoFile
Open "c:\workcar\immagini\c." & Rs!numrifint & "_" & i & ".bmp" For Input As #1
Me.TreeView1.Nodes.Add "c" & Rs!numrifint & "", tvwChild, "i" & i & "_" & Rs!numrifint, "c." & Rs!numrifint & "_" & i
Close #1

NoFile:
Next i
Rs.MoveNext
Loop

l'On error goto funziona solo al prino errore, la seconda volta l'errore viene visualizzato e chiude l'applicazione.
Come posso fare?

[xegallo]

Innanzi tutto ti invito a formattare il codice usando il pulsante CODE
poi ti consiglio di controllare se il file esiste con un dir piuttosto di generare l'errore

[iguana13]

Dim i as Integer
Dim nomefile as String
Do While Not Rs.EOF
        Me.TreeView1.Nodes.Add "numrif", tvwChild, "c" & Rs!numrifint & "", "" & Rs!numrifint
    For i = 1 To 100
        nomefile  = c:\workcar\immagini\c." & Rs!numrifint & "_" & i & ".bmp"
        'Controlla che il file esista
        If Dir(nomefile) = "" Then
             Rs.MoveNext
             Next i
        End If
        Open nomefile For Input As #1
            Me.TreeView1.Nodes.Add "c" & Rs!numrifint & "", tvwChild, "i" & i & "_" & Rs!numrifint, "c." & Rs!numrifint & "_" & i
        Close #1
            
Loop

Ma una domanda:
A cosa ti serve aprire il file in questo codice?? :master: