デスクトップパスの取得

    Dim MyWSH  As Object
    Set MyWSH = CreateObject("WScript.Shell")
    myDeskTopPath = MyWSH.SpecialFolders("Desktop")
    Set MyWSH = Nothing

ネタ元

• http://www.nurs.or.jp/~ppoy/access/access/acEt013.html