vb e file

[Johnny_Depp]

Private Sub Form_Load()
    
    Dim p As String

    p = Dir("C:\Documenti\mia_directory\*")

    While (p <> "")
        List1.AddItem p
        p = Dir
    Wend

End Sub

n.b. aggiungi un controllo ListBox (List1)