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!

[Megatron]

Try this.

sFile = Dir$("C:\MyDir\*.*")
Do While sFile <> ""
    Print sFile
    sFile = Dir$
Loop

[rsitogp]

Excuse my ignorence, but I get a run time error 5 (invalid procudure call or argument) on the

sFile = Dir$

line.

[abdul]

Check your code again. It works fine