'-------------------------

'デスクトップフォルダのパスを取得

  保存先 = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"