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

VBAコード

「WScript.Shellオブジェクト」の「SpecialFolders」プロパティにより
　・「ログインユーザー毎のデスクトップのパス」を取得
できます。

Option Explicit

Sub sample()

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

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

    '後片付け
    Set wsh = Nothing
    
End Sub

実行結果

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

参考①

「SpecialFolders」プロパティはWindowsの特別なファルダパスを取得できるモノです。
デスクトップのパス以外も取得できます。

詳細は公式サイトをご確認ください。

参考②

「ログインユーザー名」や「コンピューター名」を取得することもできます。

詳細は以下の記事をご確認ください。

●ログインユーザー名を取得

●コンピューター名を取得