一个简单的问题。欢迎大家来回答.

[leoiv]

vb中如何判断一个目录是否为空?随便是函数还是语句实现.

[jam021]

Private Sub Command1_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
Dim i As Integer
i = 0
For Each f In objFolder.Files
i = i + 1
Next
If i = 0 Then
MsgBox "No file in this folder!"
End If
End Sub

[lxcc]

'引用Microsoft Scriptting Runtime
Dim fso As New FileSystemObject

Private Sub Command1_Click()
Dim fsoFolder As Folder
Set fsoFolder = fso.GetFolder("c:\test")
If fsoFolder.Size = 0 And fsoFolder.Files.Count = 0 And fsoFolder.SubFolders.Count = 0 Then
MsgBox "空文件夹"
Else
MsgBox "非空文件夹"
End If
End Sub

[shanjuhua]

学习，谢谢。

[zhhot]

up!

[江语]

关注，顶~~