VBA 폴더내 파일 이름 조건 검색

파일 이름 조건 검색

현재 폴더 상황

---

VBA 코드 

  
Sub test()
    Dim 파일확장자 As String
    Dim 파일 As String
    Dim 파일리스트_count As Integer
    
    경로 = "D:\CSV"
    파일확장자 = "testdata" & "*"
    파일 = Dir(경로 & "\" & 파일확장자)
    Do While 파일 <> ""

        Debug.Print 파일
        
        
        파일 = Dir
    Loop

End Sub

---

실행 결과 

으로 testdata* 에 대한 결과가 나옵니다.

추후에 *.xls 이런식으로 사용할수도 있습니다.