ダウンロードフォルダの取得

ダウンロードフォルダを取得したいことがありますが、直接ダウンロードフォルダのパスを取得する方法がありません。
少し変化球ではありますが、一度デスクトップフォルダを取得して、ダウンロードフォルダに置き換えることで、ダウンロードフォルダを取得します。

【関数化】

' ------------------------------------------------------------
' 説明：ダウンロードフォルダの取得
' 戻値：ダウンロードフォルダ
' 備考：一度デスクトップフォルダを取得して、ダウンロードフォルダに置き換える
' ------------------------------------------------------------
Function GetDownloadFolder() As String
    Dim fso As Object
    Dim wsh As Object
    Dim folder As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")    ' オブジェクトの作成
    Set wsh = CreateObject("WScript.Shell")                 ' オブジェクトの作成

    ' デスクトップ（C:\Users\ユーザー名\Desktop）
    folder = wsh.SpecialFolders("Desktop")

    ' デスクトップ フォルダの親に、"\Downloads" を追加
    GetDownloadFolder = fso.GetParentFolderName(folder) & "\Downloads"
End Function