デスクトップなど特殊フォルダのフルパスを取得したい

VB6を使用しています。
デスクトップやシステムフォルダなどの特殊フォルダのフルパスを取得したいのですが、方法がよくわかりません。

No.260113の方の質問と同様になってしまうのですが、参考ＵＲＬがすでになくなっているみたいで判りませんでした。

取得方法をご存知の方、ご教授いただきますよう、よろしくお願いいたします。

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2004/09/22 22:04

＃１で最初のSetに＝が抜けてました。

すみません。
あとついでに使えるKeyの一覧を書いときます。
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Templates
Fonts
Desktop
StartMenu
Programs
Startup
Favorites
MyDocuments
Recent
SendTo
NetHood
PrintHood

この回答へのお礼

アドバイスありがとうございました。

かゆいところに手の届くアドバイス、ありがとうございました。
実のところ、#1のご回答をいただいた後、Keyが判らずいろいろと調べてたり試したりしていたのですが、AllUsersあたりがわからないなぁ…と思っていた次第でした。

細かいアドバイスありがとうございました。
大変参考になりました。

お礼日時：2004/09/22 22:41

No.1 回答者： BLUEPIXY 回答日時： 2004/09/22 21:43

'WindowsScriptingHostのオブジェクトを使ってできます。

dim wshShell, sf

Set wshShell Createobject("WScript.shell")
Set sf = wshShell.SpecialFolders

として、
sf.count または、sf.lengthで個数が
sf(key) または、sf.Item(key)でパスが得られます。
例えば、デスクトップは
sf("Desktop")

この回答へのお礼

ご回答ありがとうございました。

詳細は＃２で…

お礼日時：2004/09/22 22:38