【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の特別なファルダパスを取得できるモノです。
デスクトップのパス以外も取得できます。

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

PR

参考②

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

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

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