codice:
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: