>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 onnections > 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) > lcSrvarea = LEFT(slpRemoteName,AT(CHR(0),slpRemoteName) - 1) > IF UPPER(lcSrvarea) = "\\Server\srvr_area" > lcDrv = DRIVE > ENDIF > ENDIF > ENDIF >ENDFOR > >