CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to find whether the given directory is empty (in three ways)
Option Explicit
 
'Using Dir:

Public Function IsDirEmptyUsingDir(ByVal sPath As String) As Boolean
'On Error Resume Next
    Dim dirname As String, iCount As Integer
    If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
    dirname = Dir$(sPath & "*.*", vbDirectory)
    If Len(dirname) = 0 Then
        Call MsgBox("The Directory doesn't exist.", vbInformation, App.Title)
    Else
        Do While Len(dirname)
            If dirname = "." Or dirname = ".." Then
                ' Exclude the "." and ".." entries.
            Else
                ' This is a regular file or a directory.
                iCount = iCount + 1
            End If
            dirname = Dir$
        Loop
    End If
    IsDirEmptyUsingDir = (iCount = 0)
End Function
'How can I call this function:
'Debug.Print IsDirEmptyUsingDir("C:\Temp\b1")

'Using FSO:

Public Function IsDirEmptyUsingFSO(ByVal sPath As String) As Boolean
'Set a reference to "Microsoft Scripting Runtime"
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    If Not FSO.FolderExists(sPath) Then
        Call MsgBox("The Directory doesn't exist.", vbInformation, App.Title)
        GoTo ExitHere
    End If
    IsDirEmptyUsingFSO = ((FSO.GetFolder(sPath).Files.count + FSO.GetFolder(sPath).SubFolders.count) = 0)
 
ExitHere:
    Set FSO = Nothing
End Function
'How can I call this function:
'Debug.Print IsDirEmptyUsingFSO("C:\Temp\b1")

'Using API:

Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" _
    (ByVal pszPath As String) As Long
 
Public Function IsDirEmptyUsingAPI(ByVal sPath As String) As Boolean
    IsDirEmptyUsingAPI = PathIsDirectoryEmpty(sPath)
End Function
'How can I call this function:
'Debug.Print IsDirEmptyUsingAPI("C:\Temp\b1")