「マイドキュメント」や「デスクトップ」の取得

[umemura]

Shell もActiveXObject として利用できるんですね。
下記のようなコードで、SpecialFolders から取得できました。

Code:

{import * from CURL.GRAPHICS.ACTIVEX}
{def tmp-xobj = {ActiveXObject ProgId = "WScript.Shell"}}
{def sf =  tmp-xobj.SpecialFolders asa ActiveXObject}
{Table columns = 2,
    "デスクトップ", {sf.Item "Desktop"},
    "マイドキュメント", {sf.Item "Mydocuments"}
}