Read Files of Directory in PBWIN 6/7/8

Hallo,

i?m searching for a easy way to read all files of a directory and show
them in a listbox.=20

I get on display some entries but the first 7-8 of the listbox are
empty=20
the rest shows me some filenames. What can be wrong ?

Or has somebody a better idea ? Here is my Code:

LOCAL a AS STRING
LOCAL x AS INTEGER

DIM Listing(1 TO 1000) AS STRING

a =3D DIR$("C:\*.*")
=20
FOR x =3D 1 TO LEN(a)
 LISTBOX ADD hDlg, lID, a
 a =3D DIR$
NEXT x      =20

Thanx for Ideas

Greetings
Alen