ユーザーのダウンロードフォルダのパスを取得する【SpecialFolders】【ExcelVBA】

ユーザーのダウンロードフォルダのパスを取得したい

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

（例）
C:\Users\user\Downloads\

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

ユーザーのダウンロードフォルダのパスを取得するサンプルコード

Public Sub sample()

    '■ダウンロードフォルダパスを取得
    Debug.Print CreateObject("Wscript.Shell").SpecialFolders("MyDocuments") & "\..\Downloads\"
    
    '■変数sPathにダウンロードフォルダのパスを入れる
    Dim sPath As String
    sPath = CreateObject("Wscript.Shell").SpecialFolders("MyDocuments") & "\..\Downloads\"

    '■カレントディレクトリをダウンロードフォルダパスにする
    ChDir CreateObject("Wscript.Shell").SpecialFolders("MyDocuments") & "\..\Downloads\"
    
    
End Sub

注意点

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

関連記事

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