[EXCEL] 폴더 파일명 불러오기

[EXCEL] 폴더 파일명 불러오기

  폴더에 있는 파일을 정리하고자 할때 편리한 매크로가 있어서 소개 드립니다.

 

출처 : http://cafe.naver.com/exceller/3754

파일 :

book1.xls

다운로드

 

 

 

 

 사용법은 파일을 다운로드 받은 후

 

 파일을 실행합니다.

 

1. 매크로를 사용할 것이기 때문에 콘텐츠 사용을 클릭합니다.

 

2. 그 다음 찾으려는 파일의 확장자를 선택한 후 파일명 버튼을 클릭합니다.

 

 

3. 이 때 중요한데요. 파일을 선택하는 것이 아니라 찾고 싶은 폴더를 클릭합니다.

 

저는 IMAGE 폴더를 클릭 후 확인

 

4. 그럼 아래처럼 파일명과 크기, 그리고 작성일시를 불러오게 되구요.

 

실제 탐색기로 해당 폴더에 가면 JPG파일이 3개 존재함을 확인할 수 있습니다.

 

 

 

  그럼 잘 사용하시기 바랍니다.

 

그리고 아래는 위 파일으 소스를 공개해 놓은 것입니다.

 

 

 

Sub 파일명검색_버튼클릭()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "파일명 검색 "
        .InitialFileName = ThisWorkbook.Path
        If .Show = vbTrue Then
            Range("a1").CurrentRegion.Offset(1).Delete xlUp
            파일명찾기 .SelectedItems(1) & "\"
        End If
    End With
End Sub

Private Sub 파일명찾기(ByVal 폴더명 As String)
    Dim sTemp As String, r As Long
    Dim 시작셀: Set 시작셀 = [a2]
    Dim 확장명 As String: 확장명 = "." & [e2]
   
    Dim 파일명 As String: 파일명 = Dir(폴더명 & "*" & 확장명)
    Do Until 파일명 = ""
        r = r + 1
        sTemp = Left$(파일명, InStr(파일명, 확장명) - 1) ' 확장명을 지운 파일명
        시작셀(r, 1).Resize(, 3) = Array( _
            sTemp, _
            FileLen(폴더명 & 파일명), _
            FileDateTime(폴더명 & 파일명))
           
        파일명 = Dir
    Loop
End Sub