「マイドキュメント」のフォルダを取得するには、どうする方法が良いのでしょうか。
通常は、Windows7 であれば、 C:\Users\ユーザ名\Documents になると思うので、
{get-from-host-environment "USERPROFILE"} で取得したユーザフォルダをベースにすればいいかな、と思ったのですが、
下記の方法で、マイドキュメントのフォルダを変更することもできるようなので、
ユーザフォルダから決め打ちするわけにもいきません。
■マイドキュメントフォルダの変更
http://www.atmarkit.co.jp/fwin2k/win2kti...cmove.html
VBA であれば、WSH を使って取得できるようなのですが・・・。
「マイドキュメント」や「デスクトップ」の取得
Shell もActiveXObject として利用できるんですね。
下記のようなコードで、SpecialFolders から取得できました。
下記のようなコードで、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"}
}