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