{"published":"2007-12-27 13:36:13","height":"190","title":"\u30d5\u30a1\u30a4\u30eb\u306b\u5909\u66f4\u3092\u4e0e\u3048\u308b\u969b\u3001\u3059\u3067\u306b\u30d5\u30a1\u30a4\u30eb\u304c\u63b4\u307e\u308c\u3066\u3044\u305f\u3089\u4f55\u5ea6\u3082\u30c1\u30e3\u30ec\u30f3\u30b8\u3059\u308b","url":"https://nacookan.hatenadiary.org/entry/20071227/1198730173","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnacookan.hatenadiary.org%2Fentry%2F20071227%2F1198730173\" title=\"\u30d5\u30a1\u30a4\u30eb\u306b\u5909\u66f4\u3092\u4e0e\u3048\u308b\u969b\u3001\u3059\u3067\u306b\u30d5\u30a1\u30a4\u30eb\u304c\u63b4\u307e\u308c\u3066\u3044\u305f\u3089\u4f55\u5ea6\u3082\u30c1\u30e3\u30ec\u30f3\u30b8\u3059\u308b - \u4eca\u65e5\u899a\u3048\u305f\u3053\u3068\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","blog_title":"\u4eca\u65e5\u899a\u3048\u305f\u3053\u3068","width":"100%","provider_name":"Hatena Blog","description":"\u30d5\u30a1\u30a4\u30eb\u3092\u66f8\u304d\u8fbc\u3082\u3046\u3068\u3057\u305f\u3089\u3001\u4ed6\u306e\u30d7\u30ed\u30bb\u30b9\u306a\u3069\u306b\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u63b4\u307e\u308c\u3066\u3044\u3066\u3001\u66f8\u304d\u8fbc\u307f\u306b\u5931\u6557\u3059\u308b\u3053\u3068\u304c\u3042\u308b\u3002\u3053\u306e\u3068\u304d\u6210\u529f\u3059\u308b\u307e\u3067\u4f55\u5ea6\u3082\u30c1\u30e3\u30ec\u30f3\u30b8\u3057\u305f\u3044\u3002 Dim fso As New FileSystemObject Dim t As TextStream Do On Error Resume Next Set t = fso.CreateTextFile(\"hoge.txt\", True, False) On Error GoTo 0 If Not t Is Nothing Then Exit Do Sleep 500 Loop t.Write \"hello, world!\" t.Close \u2026","categories":["VB"],"blog_url":"https://nacookan.hatenadiary.org/","author_url":"https://blog.hatena.ne.jp/nacookan/","version":"1.0","image_url":null,"provider_url":"https://hatena.blog","author_name":"nacookan"}