{"author_url":"https://blog.hatena.ne.jp/kurukuru-papa/","title":" MS-DOS\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3057\u3001\u7d50\u679c\u3092\u53d6\u5f97\u3059\u308b","version":"1.0","height":"190","provider_name":"Hatena Blog","image_url":null,"categories":["ExcelVBA"],"blog_url":"https://kurukurupapa.hatenablog.com/","provider_url":"https://hatena.blog","published":"2008-12-23 00:06:37","blog_title":"kurukuru-papa\u306e\u30d6\u30ed\u30b0","url":"https://kurukurupapa.hatenablog.com/entry/20081223/1230044797","description":"' DOS\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3059\u308b ' 2008/12/22 \u65b0\u898f\u4f5c\u6210 Public Sub U_Exec(cmd As String, resultArr As Variant) Dim wsh Dim exec Dim resultStr ' \u524d\u6e96\u5099 Set wsh = CreateObject(\"WScript.Shell\") Set exec = wsh.exec(\"%ComSpec% /c \" & cmd) ' \u30b3\u30de\u30f3\u30c9\u5b9f\u884c Do While exec.Status = 0 DoEvents Loop ' \u6a19\u6e96\u51fa\u529b\u3092\u53d6\u5f97\u3059\u308b resultStr = exec.StdOut.ReadAll \u2026","width":"100%","type":"rich","author_name":"kurukuru-papa","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkurukurupapa.hatenablog.com%2Fentry%2F20081223%2F1230044797\" title=\" MS-DOS\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3057\u3001\u7d50\u679c\u3092\u53d6\u5f97\u3059\u308b - kurukuru-papa\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}