prova a scrivere questo codice nella routine del filelistbox:

codice:
Private Sub File1_Click()
Dim File As String
    
    If Right$(File1.Path, 1) = "\" Then
        File = File1.Path & File1.FileName
    Else
        File = File1.Path & "\" & File1.FileName
    End If
End Sub
Spero non sia troppo tardi!


:gren: Dove stai andando, maledetto gatto