파일여부 확인

Sub CheckIfFolderIsEmpty()
    Dim folderPath As String
    Dim folder As Object
    Dim file As Object
    Dim isEmpty As Boolean
    
    ' 확인할 폴더 경로를 지정합니다.
    folderPath = "C:\Your\Folder\Path"

    ' FileSystemObject 생성
    Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    
    ' 폴더가 비어 있는지 확인
    isEmpty = True
    For Each file In folder.Files
        isEmpty = False
        Exit For
    Next file
    
    If isEmpty Then
        For Each file In folder.SubFolders
            isEmpty = False
            Exit For
        Next file
    End If
    
    ' 결과 출력
    If isEmpty Then
        MsgBox "폴더가 비어 있습니다."
    Else
        MsgBox "폴더가 비어 있지 않습니다."
    End If
End Sub