In addition to Sergey response. The following line will always be false.

IF UPPER(lcSrvarea) = "\\Server\srvr_area"

If the right of the expression is really a literal string, make sure that it is in upper case.


>Hi,
>
>The following used to work for me, but now it does not.
>Any alternatives?
>
>lcDrv = " " && Network Drive
>
>DECLARE INTEGER WNetGetConnection IN win32api ;
> STRING lpszLocalName,;
> STRING lpszRemoteName,;
> INTEGER @ lpchBuffer && Declare the external WNetGetConnection API function
>slpRemoteName = SPACE(254) && Intialize Variables
>slen = LEN(slpRemoteName) && Intialize Variables
>FOR I = 1 to 26 && Loop through drive letters A thru Z to identify connections
> DRIVE = CHR(I +64)
> DTYPE = DRIVETYPE(drive) && Determine drive type
> IF dtype = 4 && Removables or network drives
> iSuccess = WNetGetConnection(drive + ":",@slpRemoteName,@slen)
> IF iSuccess = 0
> lcSrvarea = LEFT(slpRemoteName,ATC(CHR(10),slpRemoteName) - 1)
> IF UPPER(lcSrvarea) = "\\Server\srvr_area"
> lcDrv = DRIVE
> ENDIF
> ENDIF
> ENDIF
>ENDFOR