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
'프로그램 > VBA' 카테고리의 다른 글
엑셀로 달력 만들기 [메모버전] (1) | 2011.02.16 |
---|---|
vba 동적 리스트박스 셀 생성 (0) | 2011.01.18 |