VBATips

ユーザーのデスクトップのパスを取得する【SpecialFolders】【ExcelVBA】

ユーザーのデスクトップのパスを取得したい

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が新しくなった場合は、気にしたほうがよいです。

関連記事

コメント

タイトルとURLをコピーしました