■ デスクトップのパス名を取得する

デスクトップにファイルを作成する場合などに使用します
APIを使用せずに実現できます

Dim w_wscsh           As Object
Dim w_desktop         As String 

    Set w_wscsh = CreateObject("WScript.Shell") 

    'デスクトップへのパスを取得
    w_desktop = w_wscsh.SpecialFolders("Desktop")