Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How do i get the path of
Message
 
To
21/08/2007 01:47:27
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01249260
Message ID:
01249267
Views:
21
Hi,

>How can i get the path of "My doc"
*========================================================================================
* Returns use specific folders
*========================================================================================

	#DEFINE CSIDL_PERSONAL                  0x0005        && My Documents
	#DEFINE CSIDL_APPDATA                   0x001a        && <user name>\Application Data
	#DEFINE CSIDL_PROGRAM_FILES_COMMON      0x002b        && C:\Program Files\Common
	#DEFINE CSIDL_COMMON_APPDATA            0x0023        && All Users\Application Data
	#DEFINE CSIDL_WINDOWS                   0x0024        && GetWindowsDirectory()
	#DEFINE CSIDL_SYSTEM                    0x0025        && GetSystemDirectory()
	#DEFINE CSIDL_PROGRAM_FILES             0x0026        && C:\Program Files
	#DEFINE CSIDL_LOCAL_APPDATA             0x001c        && <user name>\Local Settings\Applicaiton Data (non roaming)

	Local loFolder
	loFolder = NewObject("_commonfolder",Home()+"\FFC\_System.vcx" )

	Clear
	? "My Documents:", loFolder.GetFolder(CSIDL_PERSONAL)
	? "Application Data:", loFolder.GetFolder(CSIDL_APPDATA)
	? "Common files:", loFolder.GetFolder(CSIDL_PROGRAM_FILES_COMMON)
	? "All Users:", loFolder.GetFolder(CSIDL_COMMON_APPDATA)
	? "Windows:", loFolder.GetFolder(CSIDL_WINDOWS)
	? "System:", loFolder.GetFolder(CSIDL_SYSTEM)
	? "Program Files:", loFolder.GetFolder(CSIDL_PROGRAM_FILES)
	? "Local Application Data:", loFolder.GetFolder(CSIDL_LOCAL_APPDATA)
--
Christof
Previous
Reply
Map
View

Click here to load this message in the networking platform