Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Any VFP 7 like version of GETDIR() for VFP 6?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00724840
Message ID:
01186009
Vues:
31
>
>LOCAL lcPath,lcBuffer,liBuffer,liLevel
>lcPath="z:\coms\XmlActiveX.msi"+CHR(0)
>liBuffer=256
>lcBuffer=REPLICATE(CHR(0),liBuffer)
>
>#define UNIVERSAL_NAME_INFO_LEVEL   0x00000001
>#define REMOTE_NAME_INFO_LEVEL      0x00000002
>
>DECLARE INTEGER WNetGetUniversalName IN mpr.dll;
>  STRING @ lpLocalPath, ;
>  INTEGER dwInfoLevel, ;
>  STRING @ lpBuffer, ;
>  INTEGER  @ lpBufferSize
>
>
>liLevel=UNIVERSAL_NAME_INFO_LEVEL
>
>* This level return structure about
>*!*	liLevel=REMOTE_NAME_INFO_LEVEL
>
>*!*	*!*	typedef struct _REMOTE_NAME_INFO {
>*!*	*!*	  LPTSTR  lpUniversalName;
>*!*	*!*	  LPTSTR  lpConnectionName;
>*!*	*!*	  LPTSTR  lpRemainingPath;
>*!*	*!*	} REMOTE_NAME_INFO;
>
>
>?WNetGetUniversalName(@lcPath,liLevel,@lcBuffer,@liBuffer)
>?SUBSTR(lcBuffer,5) && I don't know, why first 4 bytes are...
>
>
>MartiJ

Thanks a lot, Martin.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform