File and Dir Listing

[rsitogp]

Hello,

I'm working on a small prog that'll list dirs and the files in them, I used the following code to list the dirs but couldn't get it going with files too:

Private Sub Command1_Click()
 For i = Dir2.ListIndex To Dir2.ListCount - 1
  If Text1.Text <> "" Then
   Text1.Text = Text1.Text & vbNewLine & Dir2.List(i)
  Else
   Text1.Text = Dir2.List(i)
  End If
 Next i
End Sub

Any ideas?

Thanks in advance!