フォルダの中身がカラか調べる

質問

ｖｂａです。
フォルダ（新しいフォルダ）を作り、その中にサブフォルダ（Test用フォルダ）を作って
---------------------------------------------------------
Sub フォルダの中身がカラか調べる()
If Dir("D:\新しいフォルダ\Test用フォルダ\*.*") = "" Then
MsgBox "カラです"
Else
MsgBox "カラではありません"
End If
End Sub
---------------------------------------------------------
を実行すると、新しいフォルダの中にフォルダがあるのに、
「カラです」が表示されてしまいます。
新しいフォルダのファイルサイズは0です。

If Dir("D:\新しいフォルダ\Test用フォルダ\*.*") = "" Then
のコードは、フォルダの中のファイル数ではなく、
フォルダのサイズを取得してしまうのでしょうか？

回答No.1

temtecomai2 · ベストアンサー

フォルダの検索なら vbDirectory を指定するとか。。。（Dir のヘルプ）

私なら FileSystemObject を使っちゃうかもしれないけど。
FileSystemObject オブジェクト http://msdn.microsoft.com/ja-jp/library/cc428071.aspx
GetFolder メソッド http://msdn.microsoft.com/ja-jp/library/cc428024.aspx
Foldet オブジェクト http://msdn.microsoft.com/ja-jp/library/cc428096.aspx
Files プロパティ http://msdn.microsoft.com/ja-jp/library/cc428109.aspx
SubFolders プロパティ http://msdn.microsoft.com/ja-jp/library/cc428151.aspx

Sub hoge2()
　　Dim fso As Object
　　Set fso = CreateObject("Scripting.FileSystemobject")

　　Dim targetPath As String
　　targetPath = "D:\aaa\bbb"

　　If fso.FolderExists(targetPath) Then
　　　　Dim targetDir As Object
　　　　Set targetDir = fso.GetFolder(targetPath)

　　　　If (targetDir.Files.Count = 0) And (targetDir.SubFolders.Count = 0) Then
　　　　　　MsgBox "から"
　　　　Else
　　　　　　MsgBox "からじゃない"
　　　　End If
　　End If
End Sub

お礼

FileSystemObjectを使えば、結果を取得できますね。
サンプルコードを実行したら、思い通りになりました。
ありがとうございました。