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