ListBox en visual basic

[pabli]

Código:

Private Sub DirListBox1_Change()
    Dim S_string As String
    
    List1.Clear
    S_string = Dir(DirListBox1.Path, vbNormal)   ' Recupera la primera entrada.
    Do While S_string <> ""   ' Inicia el bucle.
        List1.AddItem S_string
        S_string = Dir   ' Obtiene siguiente entrada.
    Loop

End Sub