Ragazzi anche io stavo seguendo come fare... ma avete chiuso la discussione e quindi ne ho aperta un'altra!
io ho inserito questo codice ...
Private Sub Combo50_Click ()
Dim s
For Each s In GetFiles("C:\")
If Right$(s, 4) = ".txt" Then
Combo50.AddItem s
End If
Next
ma dice : errore di compilazione
Sub o Function non definita!
Come risolvo? Grazie