파일갯수 세기

Sub CountXlsxFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim fileCount As Integer
    
    ' 폴더 경로를 설정합니다. 예: "C:\example\"
    folderPath = "C:\example\"
    
    ' 파일 갯수를 초기화합니다.
    fileCount = 0
    
    ' 폴더 내의 첫 번째 파일을 찾습니다.
    fileName = Dir(folderPath & "*.xlsx")
    
    ' 파일이 존재하는 한 반복합니다.
    Do While fileName <> ""
        ' 파일 갯수를 증가시킵니다.
        fileCount = fileCount + 1
        ' 다음 파일을 찾습니다.
        fileName = Dir
    Loop
    
    ' 결과를 메시지 박스로 출력합니다.
    MsgBox "폴더 내의 .xlsx 파일 개수는 " & fileCount & "개입니다."
End Sub