General information
Category:
Coding, syntax & commands
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only