ユーザーのマイドキュメントのパスを取得する【SpecialFolders】【ExcelVBA】

ユーザーのマイドキュメントのパスを取得したい

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

（例）
C:\Users\user\MyDocuments

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

ユーザーのマイドキュメントのパスを取得するサンプルコード

Public Sub sample()

    '■マイドキュメントパスを取得
    Debug.Print CreateObject("Wscript.Shell").SpecialFolders("MyDocuments")
    
    '■変数sPathにマイドキュメントのパスを入れる
    Dim sPath As String
    sPath = CreateObject("Wscript.Shell").SpecialFolders("MyDocuments")

    '■カレントディレクトリをマイドキュメントパスにする
    ChDir CreateObject("Wscript.Shell").SpecialFolders("MyDocuments")
    
End Sub

注意点

• 大きく変わることはないと思いますが、Windows11 Excel2021での動作確認です。
  WindowsのVerが新しくなった場合は、気にしたほうがよいです。
• Downloadフォルダパスを取得したい場合はこちら

関連記事

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