ユーザーのデスクトップのパスを取得したい
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が新しくなった場合は、気にしたほうがよいです。
コメント