Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Is there an alternative to ADIR()?
Message
 
To
30/04/2004 07:40:33
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00899669
Message ID:
00899705
Views:
14
I think you have been given an answer... but I would like to suggest that you need to cut down on the number of files in the directory - 20,000 is too many. Why not break them down into sub directories?

-w-

>Hi guys,
> I have a program that gets the names of files store in a network directory and puts them in a dbf(table). Am using the function ADIR() to do so but if the records are more than 20,000, I get an error "Too many variables". Is there an alternative to doing so? This is the program :
>
>
>CLOSE DATABASES
>CLOSE TABLES ALL
>
>CREATE TABLE "C:\Documents and Settings\Rndivo.CRC\My Documents\s01A_img.DBF" (FILENUM C(30,0))
>CLOSE TABLES ALL
>
>gnIMAGEnumber = ADIR(gaImages, 'E:\Projects\SCANNED IMAGES\KiBS\01. Screening\01A - ANC Screening Forms\*.TIF')
>
>CLEAR
>USE "C:\Documents and Settings\Rndivo.CRC\My Documents\s01A_img.DBF" IN 1
>FOR nCount = 1 TO gnIMAGEnumber
> APPEND BLANK IN 1
> REPLACE s01A_img.FILENUM WITH gaImages(nCount,1)
>ENDFOR
>CLEAR ALL
>RELEASE ALL
Wayne Myers, MCSD
Senior Consultant
Forte' Incorporated
"The only things you can take to heaven are those which you give away" Author Unknown
Previous
Reply
Map
View

Click here to load this message in the networking platform