LOCAL lObjShell, lStrPath
lObjShell = Createobject("Wscript.Shell")
lStrPath = lObjShell.SpecialFolders("Desktop")
? lStrPath

* Define constants to use with SHGetKnownFolderIDList routine
* Values copied from MSDN reference site (although not the names)
#define k_FID_CAMERAROLL    "{AB5FB87B-7CE2-4F83-915D-550846C9537B}"
#define k_FID_DESKTOP        "{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}"
#define k_FID_DOCUMENTS        "{FDD39AD0-238F-46AF-ADB4-6C85480369C7}"
#define k_FID_PICTURES        "{33E28130-4E1E-4676-835A-98395C3BC3BB}"
#define k_FID_SKYCAMERAROLL    "{767E6811-49CB-4273-87C2-20F355E1085B}"
#define k_FID_SKYDOCUMENTS    "{24D89E24-2F19-4534-9DDE-6A6671FBB8FE}"
#define k_FID_SKYPICTURES    "{339719B5-8C47-4894-94C2-D8F77ADD44A6}"

? GetKnownFolderPath(k_FID_DESKTOP)

**********************************************
function getKnownFolderPath (cDefFoldID as string, cErrMsg as string) as string
**********************************************
local nOutBuff, cOutStr, cbGUID

* Declare all the required system calls (protected for repeat calls)
if vartype(__G_DLL_CLSIDFROMSTRING_) = "U"
    declare long CLSIDFromString ;
        in ole32.dll ;
        string cInStr, ;
        string @ cGUID
    public __G_DLL_CLSIDFROMSTRING_
endif

if vartype(__G_DLL_SHGETKNOWNFOLDERIDLIST_) = "U"
    declare long SHGetKnownFolderIDList ;
        in shell32.dll ;
        string cGUID,;
        long dwFlags,;
        long hToken,;
        long @ ppidl
    public __G_DLL_SHGETKNOWNFOLDERIDLIST_
endif

if vartype(__G_DLL_SHGETPATHFROMIDLIST_) = "U"
    declare long SHGetPathFromIDList ;
        in shell32.dll ;
        long ppidl, ;
        string @ cPath
    public __G_DLL_SHGETPATHFROMIDLIST_
endif

if vartype(__G_DLL_COTASKMEMFREE_) = "U"
    declare CoTaskMemFree ;
        in ole32.dll ;
        long pVoid
    public __G_DLL_COTASKMEMFREE_
endif

* Convert the string GUID to a binary version
cbGUID= space(16)
cErrMsg= checkSysError(CLSIDFromString(strconv(m.cDefFoldID, 5) + chr(0), @cbGUID))

if empty(m.cErrMsg)
    * Get back the folder path in a PIDL structure
    * Flags - 0x1000 -> KF_FLAG_NO_ALIAS - Expand any alias placeholders, eg. %USERPROFILE%
    *       - 0x4000 -> KF_FLAG_DONT_VERIFY - Don't check that the folder exists before returning the value
    nOutBuff= 0
    cErrMsg= checkSysError(SHGetKnownFolderIDList(m.cbGUID, 0x1000 + 0x4000, 0, @nOutBuff))
endif

if empty(m.cErrMsg)
    * Extract the path string from the PIDL structure
    cOutStr= space(512)
    cErrMsg= checkSysError(SHGetPathFromIDList(m.nOutBuff, @cOutStr))
endif

* Clean up the memory used in the above system calls
CoTaskMemFree(m.nOutBuff)

* Ensure any returned path has the trailing backslash
return iif(empty(m.cErrMsg), addbs(m.cOutStr), "")
endfunc    && getKnownFolderPath()

**********************************************
function checkSysError (nResult as integer) as string
**********************************************
local cMsg, cInBuff, nSize

if empty(m.nResult) or m.nResult = 1    && covers missing parameter, 0 (S_OK) or 1 (S_FALSE)
    * It must have worked 
    cMsg= ""
else
    * Declare the required system call (protected for repeat calls)
    if vartype(__G_DLL_FORMATMESSAGE_) = "U"
        declare long FormatMessage ;
            in win32api ;
            long dwFlags ,;
            long lpvSource,;
            long dwMsgId,;
            long dwLangId,;
            string @lpBuffer,;
            long nSize,;
            long Argument
        public __G_DLL_FORMATMESSAGE_
    endif

    * Retrieve the system message
    * Flags - 0x1000 -> FORMAT_MESSAGE_FROM_SYSTEM Use the system message-table
    cInBuff= space(1024)
    nSize= FormatMessage(0x1000, 0, m.nResult, 0, @cInBuff, len(m.cInBuff), 0)
    if m.nSize > 0
        cMsg= left(m.cInBuff, m.nSize)
    else
        * No message came back - maybe it is a application specific message
        cMsg= "Unknown error - code " + ltrim(str(m.nResult))
    endif
endif

return m.cMsg
endfunc    && checkSysError() 

?GetEnv("HOMEDRIVE")+GetEnv("HOMEPATH")+'\desktop'
или
?GetEnv("USERPROFILE")+'\desktop'

#DEFINE CSIDL_DESKTOP 0x0000
DECLARE SHORT SHGetFolderPath IN SHFolder.dll INTEGER hwndOwner, INTEGER nFolder, INTEGER hToken, INTEGER dwFlags, STRING @pszPath
DECLARE SHGetSpecialFolderPath IN SHELL32.DLL LONG hwndOwner, STRING @cSpecialFolderPath, LONG nWhichFolder

LOCAL lcFolderPath

lcFolderPath = space(255)
SHGetFolderPath(0, CSIDL_DESKTOP, 0, 0, @lcFolderPath)
? ALLTRIM(lcFolderPath)

lcFolderPath = space(255)
SHGetSpecialFolderPath(0, @lcFolderPath , CSIDL_DESKTOP)
? ALLTRIM(lcFolderPath)