엑셀 vbFileSearch 명령문 사용법 및 전체 명령문 :: 폴더 파일 찾기 함수

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ vbFileSearch 함수
'▶ 지정한 폴더에 특정 확장자를 가진 파일명을 유사일치/정확히 일치로 검색합니다.
'▶ 인수 설명
'_____________FileName      : 검색할 파일명입니다.
'_____________LookIn        : 조회할 폴더입니다.
'_____________Extension     : 특정 확장자만 조회합니다. (쉼표(,)로 구분)
'_____________ExactMatch    : 정확히일치 검색 여부입니다.
'_____________withPath      : True일 경우 결과값에 폴더경로를 출력합니다.
'▶ 사용된 기타 사용자지정함수
'_____________SplitFileExt 함수
'_____________IsInArray 함수
'_____________ListFiles 함수
'###############################################################
Function vbFileSearch(FileName As String, _
                        LookIn As String, _
                        Optional ExactMatch As Boolean = True, _
                        Optional Extension As String = "", _
                        Optional withPath As Boolean = True) As String
 
Dim sFullName As Variant
Dim sExts As Variant: Dim sExt As Variant
Dim vaArr As Variant: Dim vaRtn As Variant
Dim i As Long: Dim j As Long
 
vbFileSearch = "-1"
If Right(LookIn, 1) <> "\" Then LookIn = LookIn & "\"
 
vaArr = SplitFileExt(ListFiles(LookIn, False))
vaRtn = IsInArray(FileName, vaArr, ExactMatch, rtnArrayValue, 0)
 
If TypeName(vaRtn) = "Variant()" Then
    If Extension = "" Then
        If withPath = True Then vbFileSearch = LookIn & vaRtn(0, 0) & vaRtn(0, 1) Else: vbFileSearch = vaRtn(0, 0) & vaRtn(0, 1)
    Else
        sExts = Split(Extension, ",")
        For Each sExt In sExts
            For i = LBound(vaRtn) To UBound(vaRtn)
                If StrComp(CStr(vaRtn(i, 1)), CStr("." & Trim(sExt)), vbTextCompare) = 0 Then
                    If withPath = True Then
                        vbFileSearch = LookIn & vaRtn(i, 0) & vaRtn(i, 1)
                        Exit Function
                    Else
                        vbFileSearch = vaRtn(i, 0) & vaRtn(i, 1)
                        Exit Function
                    End If
                End If
            Next
        Next
        vbFileSearch = "-1"
    End If
Else
    vbFileSearch = vaRtn
End If
 
End Function

Sub Test()
 
Dim sName As String: Dim sPath As String
Dim sReturn As String
 
sName = Sheet1.Range("C2").Value
sPath = Sheet1.Range("C3").Value
 
sReturn = vbFileSearch(sName, sPath)
 
If sReturn = "-1" Then sReturn = "파일이 존재하지 않습니다.":  Sheet1.Range("C5").Value = sReturn: MsgBox sReturn: Exit Sub
 
Sheet1.Range("C5").Value = sReturn
MsgBox sReturn & vbNewLine & _
    "파일을 찾았습니다."
 
End Sub