{"published":"2010-08-17 00:00:02","title":"\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30d1\u30b9\u306e\u53d6\u5f97","url":"https://blog.systemjp.net/entry/20100817/p5","author_name":"shikaku","width":"100%","type":"rich","blog_title":"shikaku's blog","author_url":"https://blog.hatena.ne.jp/shikaku/","blog_url":"https://blog.systemjp.net/","provider_name":"Hatena Blog","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F20100817%2Fp5\" title=\"\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30d1\u30b9\u306e\u53d6\u5f97 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","categories":["ExcelVBA","WSH","VBS"],"version":"1.0","description":"Dim MyWSH As Object Set MyWSH = CreateObject(\"WScript.Shell\") myDeskTopPath = MyWSH.SpecialFolders(\"Desktop\") Set MyWSH = Nothing \u30cd\u30bf\u5143 http://www.nurs.or.jp/~ppoy/access/access/acEt013.html","height":"190"}