Option Explicit



Private Sub Command1_Click()

Text1.Text = ""

Dim i As Single

For i = 0 To File1.ListCount

Text1.Text = Text1.Text & File1.List(i) & Chr(13) & Chr(10)

Next i

End Sub



Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub



Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub