怎么判断文件夹是空的
引用microsoft scripting runtime
Private Sub Command1_Click()
Dim fso As New FileSystemObject
If fso.GetFolder("z:\").SubFolders.Count = 0 Then MsgBox "空的文件夹", , "警告"
End Sub
Private Sub Command1_Click()
Dim fso As New FileSystemObject
If fso.GetFolder("z:\").SubFolders.Count = 0 Then MsgBox "空的文件夹", , "警告"
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2010-06-16
右击鼠标点属性然后就可以看到了
第2个回答 2010-06-16
IF dir("d:\abc\*.*")="" then
第3个回答 2010-06-17
打开看看啊....
第4个回答 2010-06-16
排序选“大小”就好了
试试看了楼主
试试看了楼主