WScript.Shellの使い方を教えて下さい。 - 秀丸エディタマクロ作者会議室 - スレッド05377, 2006/12/03

WScript.Shellの使い方を教えて下さい。

haru さん　06/12/03 09:05

SVFol = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
MsgBox SVFol

　VBで上記のことをやっています。
　秀丸のマクロでやりたいのですが、できますか？
　お知恵をお貸し下さい。
　よろしくお願いします。

RE:05377 WScript.Shellの使い方を教えて

h-tom さん　06/12/03 09:52

h-tom です。

まぁ、ある意味タイムリーな話題というかなんというか。
> SVFol = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
> MsgBox SVFol
>
>　VBで上記のことをやっています。
>　秀丸のマクロでやりたいのですが、できますか？
秀丸では基本的にCOMにアクセスできないので、"WScript.Shell"を直接扱う事は
出来ません。
しかし、DLL経由で"WScript.Shell"を扱うことは可能です。
詳細は　http://www18.big.or.jp/~fujiwara/ikki/forum/hidemaru/　を参照。

特殊フォルダの場所を知りたいなら、レジストリから取得可能ですよ。
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
Folders]

RE:05378 WScript.Shellの使い方を教えて

haru さん　06/12/04 10:28

>しかし、DLL経由で"WScript.Shell"を扱うことは可能です。
>詳細は　http://www18.big.or.jp/~fujiwara/ikki/forum/hidemaru/　を参照。
　今後、やってみようと思います。
　その時、何かあれば、また、よろしくお願いします。

>特殊フォルダの場所を知りたいなら、レジストリから取得可能ですよ。
>[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
> Folders]
　こちらの方法でできました。
　ありがとうございます。