Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Any VFP 7 like version of GETDIR() for VFP 6?
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00724840
Message ID:
01186009
Views:
29
>
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform