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

質問

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

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

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

回答No.2

BLUEPIXY · ベストアンサー

＃１で最初のSetに＝が抜けてました。
すみません。
あとついでに使えるKeyの一覧を書いときます。
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Templates
Fonts
Desktop
StartMenu
Programs
Startup
Favorites
MyDocuments
Recent
SendTo
NetHood
PrintHood

お礼

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

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

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

回答No.1

BLUEPIXY

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

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

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

お礼

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

詳細は＃２で…