ユーザーのデスクトップのパスを取得する【SpecialFolders】【ExcelVBA】

ユーザーのデスクトップのパスを取得したい

Webからファイルのダウンロード処理を行い、
ユーザーのデスクトップを確認したい場合があります。

（例）
C:\Users\user\Desktop

WScript.ShellのSpecialFoldersプロパティを使用することで
デスクトップのような特殊なフォルダパスを取得可能です。

ユーザーのデスクトップのパスを取得するサンプルコード

Public Sub sample()

    '■デスクトップパスを取得
    Debug.Print CreateObject("Wscript.Shell").SpecialFolders("Desktop")
    
    '■変数sPathにデスクトップのパスを入れる
    Dim sPath As String
    sPath = CreateObject("Wscript.Shell").SpecialFolders("Desktop")

    '■カレントディレクトリをデスクトップパスにする
    ChDir CreateObject("Wscript.Shell").SpecialFolders("Desktop")
    
End Sub

注意点

• 大きく変わることはないと思いますが、Windows11 Excel2021での動作確認です。
  WindowsのVerが新しくなった場合は、気にしたほうがよいです。

関連記事

• カレントフォルダを変更する【ChDirステートメント】
• 「指定ファイルがあるかどうかチェック」処理をパーツ化する
• ファイルを削除する【Killステートメント】