How can I check to see if the documents folder is empty?

[brianod]

Does anybody know how to do that? I need to check the documents folder in the start menu to see if it is empty or not. Thanks...

[michelle]

Hello brianod,

Try this:

Private Sub Form_Load()
If Len(Dir("c:\test\*.*")) = 0 Then
MsgBox "empty"
Else
MsgBox "not empty"
End If
End Sub

Nice regards.

[rancor]

Hi.. Why make it "hard" =)
use this instead.

Private Sub Form_Load()
    If Dir("c:\doc\*.*") = "" Then msgBox "Empty"
End Sub