Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Map Network Drive
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01096573
Message ID:
01096575
Vues:
15
The CHR(0) (not CHR(10)) indicates the end of the string . See correction in the code below.

>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)
			lcSrvarea = LEFT(slpRemoteName,AT(CHR(0),slpRemoteName) - 1)
>			IF UPPER(lcSrvarea) = "\\Server\srvr_area"
>				lcDrv = DRIVE
>			ENDIF
>		ENDIF		
> 	ENDIF
>ENDFOR
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform