Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ADIR timing out in Windows NT
Message
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00240921
Message ID:
00241149
Views:
17
Sorry for the late delay - internet became unusable. While I was trying to find out how to do a DLL call (I haven't used 2.6 for some years), I found a call in foxtools - drivetype. I would highly recommend you change your function to include SET LIBRARY TO FOXTOOLS and lnDriveType=DriveType("drive letter"). This will return zero if drive not found. ADIR is extremely inefficient when drive is not available.

>Nigel,
> thanks for your response. I believe the speed of the call is the issue (on NT.) If I call the function multiple times in a while loop, after between three to six calls, the routine works. Is it the ADIR command, or is it the slowness of the network's response or timeout parameter setting?
>
>We have tried the following code to test the problem:
>
>---
>lcTEST = left(lcDIR, len(lcDIR) - 1)
>
>ln_cnt = 0
>
>DO WHILE adir(laTEST, lcTEST, 'D') = 0 AND ln_cnt < 300
> ln_cnt = ln_cnt + 1
> @10,10 SAY STR(ln_cnt) +" - "+ STR(ln_cnt + 1)
>ENDDO
>IF ln_cnt = 300
> do ERROR with 'The directory ' + lcDIR + ' was not found.'
> lcDIR = '*ERROR*'
>endif ln_cnt
>---
>
>lcDIR is the string of the directory. laTEST is the array that contains the directory contents.
>
>Once again, thanks in advance!
Nigel B Coates
NBC Software Services
Dublin, Ireland.
eMail: Nigel.Coates@NBCSoftware.com
Previous
Reply
Map
View

Click here to load this message in the networking platform