What is wrong here?

[norbert doerre]

Following is a sample from PB Help file (DIR$ function) I just tested:

Dim Listing(1 To 1000) As String
Dim x As Long
Dim temp As String
temp = Dir$("*.*", To Listing(x)
While Len(temp) And x < 1000
  Incr x
  temp = Dir$(Next, To Listing(x))
Wend

Error message:
Data type mismatch
Line 4: temp = Dir$("*.*", To Listing(x)

[Kev Peel]

It's a mistake in the docs. Change "Listing" data type to the built-in DIRDATA:

 
 Dim Listing(1 To 1000) As DirData

[Knuth Konrad]

There's also a missing closing bracket, don't know if that happened thru your copying to the forum or if it's in the help file as well.

[Dave Biggs]

Dim Listing(1000) As DirData

Works better!

[colin glenn]

I think Knuth may have been referring to this?
temp = Dir$("*.*", To Listing(x)

[Kev Peel]

Dave picked up on the zero bound. Good catch!