デスクトップのフルパス名を取得したい。

解決

LEO77 2005-12-27 19:13:05 No: 129246

ログインしている人ごとにデスクトップのフルパス名を取得したいです。
例えばAさんがログインしているとすれば
「C:\Documents and Settings\A\デスクトップ」
となりますし、Bさんがログインしているとすれば
「C:\Documents and Settings\B\デスクトップ」
を取得したいのです。
プログラムはVBAでコーディングしていますのでよろしくお願いします。
ちなみにWindowsXP+Access2003+VBAです。

もげ 2005-12-27 19:54:04 No: 129247

Dim oShell As Object
Dim strDesktopDir As String

    Set oShell = CreateObject("WScript.Shell")
    strDesktopDir = oShell.SpecialFolders("DeskTop")
    Debug.Print strDesktopDir

とか。

LEO77 2005-12-27 20:05:21 No: 129248

もげさん、早速のご回答ありがとうございました。
試してみましたところ正しく取得できました。
大変助かりました。
そこでもうひとつ甘えさせていただきたいのですが
同じ処理をWin32APIを使用してはできないでしょうか？
ご存知でしたらよろしくお願いします。

Blue 2005-12-27 20:33:04 No: 129249

> 同じ処理をWin32APIを使用してはできないでしょうか？
SHGetSpecialFolderLocation
SHGetPathFromIDList
あたりのAPIを調べてみてください。

もげ 2005-12-27 20:33:14 No: 129250

http://www.bcap.co.jp/hanafusa/VBHLP/specialapi.htm
をどうぞ。

LEO77 2005-12-27 20:55:05 No: 129251

もげさん、Blueさん、ご回答ありがとうございました。
これで午後からの仕事が進められます。
大変助かりました。また何かありましたらよろしくお願いします。