XProfan

def &CSIDL_APPDATA 26
def &MAX_PATH 260

proc getAppDataDir

    declare s$,l&
    s$=space$(&MAX_PATH)
    l&=external("Shell32","SHGetSpecialFolderPathA",0,addr($ S),&CSIDL_APPDATA,0)
    return si(l&=1,$ Trim($ S)+»,»)

endproc

imprimer getAppDataDir()
waitkey
end

getAppDataDir{

    string s:=space$(MAX_PATH)
    long l:=shgetspecialfolderpath(0,addr(s),CSIDL_APPDATA,0)
    return si(l==1,$ Trim(s)+»,»)

}

imprimer getAppDataDir()
waitkey
end