Hi Richard,

Too much files.
ADIR() can hold only 65000 elements. Since it's 5-dimensional, that means
65000 / 5 = 13000 files.
In VFP 9 it wil be able to hold more elements.

In te meantime, I suggest that you use the SystemFileObject Script :

LOCAL oFSO as "Scripting.FileSystemObject"
oFSO = CREATEOBJECT("Scripting.FileSystemObject")
ofso1=oFSO.GetFolder(lcPad)
FOR EACH oItem IN oFSO1.Files
insert into cursor crs_Files (c_File) values (oItem.Name)
endfor

Refer to this link if Scripting is not present or too old :
http://www.microsoft.com/downloads/details.aspx?FamilyId=C717D943-7E4B-4622-86EB-95A22B832CAA&displaylang=en

Greetzzz

Chris