用VB如何判断一个目录是否为空？

Question

一个目录有可能有N个子文件夹，怎么判断这个目录为空呢？

Answer 1

用dir('你的目录',16)就可以判断，目录下有没有文件夹！

Answer 2

用API函数得到该文件夹的大小，如果是0个字节，那么就说明这个文件夹及其包含的子文件夹都没有文件存在。

Answer 3

Dim FSO As New FileSystemObject
Dim FolderSize As Long
FolderSize = FSO.GetFolder("你要检查的目录").SizeDebug.Print FolderSize如果 FolderSize=0 那么此目录即为空