[엑셀VBA] 파일 목록(리스트) 만들기(Dir 함수)

안녕하십니까 춤추는초코칩입니다.

업무 중에 필요한 엑셀VBA를 기록하고 있습니다.

오늘은 폴더 내에 파일 목록과 파일 갯수를 가져오는 매크로를 만들어 보겠습니다.

 

Temp 폴더안에 4개 엑셀 자료가 있습니다.

해당 경로의 파일 목록과 파일 갯수를 가져오는 매크로입니다.

 

Sub FileList()

Dim dirPath As String
Dim fileName As String
Dim i As Integer
        
        dirPath = "C:\Temp\" '폴더 경로
        fileName = Dir(dirPath & "*.*") '첫번째 파일명 가져오기
        
        Do While fileName <> ""
            i = i + 1
            Range("A" & CStr(i + 1)).Value = fileName
            fileName = Dir() '다음 파일명 가져오기
        Loop

        MsgBox "파일 갯수: " & i & "개"
            
End Sub

임의의 엑셀 파일에서

위 명령문을 실행시키면, 파일 목록과 개수를 가져올 수 있습니다.