Dim w_wscsh As Object Dim w_desktop As String Set w_wscsh = CreateObject("WScript.Shell") 'デスクトップへのパスを取得 w_desktop = w_wscsh.SpecialFolders("Desktop")