{"height":"190","description":"Public Function IsExistDirA(a_sFolder As String) As Boolean Dim result result = Dir(a_sFolder, vbDirectory) If result = \"\" Then '// \u30d5\u30a9\u30eb\u30c0\u304c\u5b58\u5728\u3057\u306a\u3044 IsExistDirA = False Else '// \u30d5\u30a9\u30eb\u30c0\u304c\u5b58\u5728\u3059\u308b IsExistDirA = True End If End Function \u30cd\u30bf\u5143 vbabeginner.net","blog_title":"shikaku's blog","width":"100%","title":"ExcelVBA Dir\u95a2\u6570\u3067\u306e\u30d5\u30a9\u30eb\u30c0\u5b58\u5728\u30c1\u30a7\u30c3\u30af","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2022%2F02%2F01%2F184801\" title=\"ExcelVBA Dir\u95a2\u6570\u3067\u306e\u30d5\u30a9\u30eb\u30c0\u5b58\u5728\u30c1\u30a7\u30c3\u30af - 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>","categories":[],"url":"https://blog.systemjp.net/entry/2022/02/01/184801","blog_url":"https://blog.systemjp.net/","author_name":"shikaku","version":"1.0","published":"2022-02-01 18:48:01","author_url":"https://blog.hatena.ne.jp/shikaku/","type":"rich"}