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 if(l&=1,trim$(s$)+"","")

endproc

print getAppDataDir()
waitkey
end

getAppDataDir{

    string s:=space$(MAX_PATH)
    long l:=shgetspecialfolderpath(0,addr(s),CSIDL_APPDATA,0)
    return if(l==1,trim$(s)+"","")

}

print getAppDataDir()
waitkey
end