[VBA Function] Dir 함수를 이용하여 파일명 필터링

Описание: [VBA Function] Dir 함수를 이용하여 파일명 필터링

------------------------------
Source Code
------------------------------

'--------------------------------------------------------------------------------------------------------------
Function get_files(sFolder As String, sFilter As String) As Variant
'--------------------------------------------------------------------------------------------------------------


' Dim sFolder As String: sFolder = "D:\videos"
' Dim sFilter As String: sFilter = "*.xlsx"

Dim sPath As String
sPath = sFolder & "\" & sFilter
Dim sFile As String
sFile = Dir(sPath)

If sFile = "" Then Exit Function
'
Dim i As Long
Dim vFile As Variant: vFile = Array()
i = UBound(vFile) + 1
ReDim Preserve vFile(i)
vFile(i) = sFile
Stop

Do Until sFile = ""
sFile = Dir
If not(sFile = "") Then
i = UBound(vFile) + 1
ReDim Preserve vFile(i)
vFile(i) = sFile
End If
Loop

get_files = vFile



End Function

#VBA
#Dir
#Filter File Names