【VBA】デスクトップのパスを取得する

デスクトップのパスは、
ログインユーザー毎に違います!

デスクトップのパス

WScript.Shell」の「SpecialFolders」により、
 ・「ログインユーザー毎のデスクトップのパス」を取得
できます!

PR

VBAコード

Option Explicit

Sub sample()

    Dim wsh As Object
    
    Set wsh = CreateObject("WScript.Shell")

    'デスクトップのパスを取得
    MsgBox "デスクトップのパスは『" + wsh.SpecialFolders("Desktop") + "』です!"

    '後片付け
    Set wsh = Nothing
    
End Sub

WScript.Shell」の「SpecialFolders」の引数に「Desktop」を指定することで、「ログインユーザー毎のデスクトップのパス」を取得できます。

PR

実行結果

デスクトップのパスを取得できました。

実行結果
PR

参考

SpecialFolders」はWindowsの特別なファルダパスを取得できるモノです。
デスクトップのパス以外も取得できます。
詳細は公式サイトをご確認ください。

タイトルとURLをコピーしました