파일 리스트 불러오기

With Application.FileSearch

        .NewSearch

        .LookIn = 검색할 폴더경로

        .FileName = "*.*"

        .SearchSubFolders = False

        .Execute

    

        No_Of_Files = .FoundFiles.Count

    

        For i = 1 To No_Of_Files

            Dim tmpFilename As String

            tmpFilename = .FoundFiles(i)

            tmpFilename = Replace(tmpFilename, FilePath, "")

            tmpFilename = Replace(tmpFilename, ".xls", "")

            tmpFilename = Replace(tmpFilename, ".xlsx", "")

            FileNames = FileNames & tmpFilename & ","

        Next i

        FileNames = Mid(FileNames, 1, Len(FileNames) - 1)

    End With