Cargar archivos de una carpeta en un List1

[seba123neo]

Código vb:

Private Sub Dir1_Change()
    MsgBox NombreCarpeta(Dir1.Path)
End Sub
 
Function NombreCarpeta(Path As String) As String
    Dim Nombre As String
    Nombre = Right(Path, Len(Path) - InStrRev(Path, "\"))
    NombreCarpeta = Nombre
End Function