File and Dir Listing

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:

Code:

---

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!

Try this.

VB Code:

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

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

Code:

---

sFile = Dir$

---

line.

Check your code again. It works fine:)