엑셀 ListFiles 명령문 사용법 및 전체 명령문 :: 폴더 내 파일 목록 출력

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ ListFiles 함수
'▶ 선택한 폴더의 파일목록을 배열로 반환합니다.
'▶ 인수 설명
'_____________sPath         : 파일목록을 출력할 폴더입니다.
'_____________withPath      : TRUE일 경우 폴더 경로를 함께 표시합니다. 기본값은 FALSE 입니다.
'_____________includeChild  : TRUE일 경우 하위 폴더의 파일도 모두 포함하여 출력합니다. 기본값은 FALSE 입니다.
'_____________MaxDepth      : 하위경로 포함 시, 내려가는 최대 단계입니다. 기본값은 2 단계 입니다.
'###############################################################
 
Function ListFiles(sPath As String, Optional withPath As Boolean = False, Optional includeChild As Boolean = False, Optional maxDepth As Long = 2)
 
' 변수를 선언합니다.
Dim dictFiles As Object
Dim arr As Variant
Dim i As Long: Dim x As Long
Set dictFiles = CreateObject("Scripting.Dictionary")
 
' 폴더 내 파일 경로를 Dictionary 에 추가합니다.
ListFiles_Routine dictFiles, sPath, True, includeChild, , maxDepth
 
' Dictionary가 비어있을 경우 #NULL 오류를 반환하고 그렇지 않을 경우 다음 단계로 넘어갑니다.
On Error GoTo EH:
ReDim arr(1 To dictFiles.Count)
 
' Dictionary를 배열로 변환합니다.
arr = dictFiles.items
 
' withPath가 False일 경우 폴더 경로를 제거합니다.
If withPath = False Then
For x = LBound(arr) To UBound(arr)
i = InStrRev(arr(x), "\")
arr(x) = Mid(arr(x), i + 1, Len(arr(x)))
Next
End If
 
' 파일 경로를 반환 후 함수를 종료합니다.
ListFiles = arr
 
Exit Function
 
EH:
ListFiles = "#NULL!"
 
End Function
Sub ListFiles_Routine(dict As Object, sPath As String, Optional withPath As Boolean = False, Optional includeChild As Boolean = True, Optional depth As Long = 0, Optional maxDepth As Long = 2)
 
Dim oFSO As Object: Dim oFolder As Object: Dim oFiles As Object: Dim oFile As Object
Dim oSubFolder As Object
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
Set oFiles = oFolder.Files
 
On Error Resume Next
 
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
 
For Each oFile In oFiles
If withPath = False Then dict.Add oFile.Name, oFile.Name Else: dict.Add sPath & oFile.Name, sPath & oFile.Name
Next
 
If includeChild = True Then
For Each oSubFolder In oFolder.SubFolders
depth = depth + 1
If depth <= maxDepth Then ListFiles_Routine dict, sPath & oSubFolder.Name, True, True, depth, maxDepth
depth = depth - 1
Next
End If
 
End Sub