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

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

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

VBAコード

Option Explicit

Sub sample()

    Dim wsh As Object
    
    Set wsh = CreateObject("WScript.Shell")
    'デスクトップのパスを取得
    MsgBox "デスクトップのパスは『" + wsh.SpecialFolders("Desktop") + "』です!"
    '後片付け
    Set wsh = Nothing
    
End Sub

実行結果

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

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