*======================================================================================== * 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)