ユーザーのマイドキュメントのパスを取得したい
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フォルダパスを取得したい場合はこちら
コメント