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 & tmpFile..