Этот макрос выводит информацию о папке - например, её размер, и количество файлов в ней:
Sub ПодсчётКоличестваФайловВПапке()
' задаём папку
FolderPath = "C:\Documents and Settings\Admin\Рабочий стол\"
' получаем характеристики папки
Set FSO = CreateObject("Scripting.FileSystemObject")
КоличествоФайловВПапкеБезУчётаПодпапок = FSO.GetFolder(FolderPath).Files.Count
КоличествоПодпапок = FSO.GetFolder(FolderPath).SubFolders.Count
РазмерПапкиВБайтах = FSO.GetFolder(FolderPath).Size
' подсчитываем количество файлов с учётом файлов в подпапках
КоличествоФайловВПапкеСУчётомПодпапок = FilesCount(FolderPath)
Debug.Print "В папке найдено " & КоличествоФайловВПапкеБезУчётаПодпапок & " файлов и " & _
КоличествоПодпапок & " подпапок. Всего файлов: " & КоличествоФайловВПапкеСУчётомПодпапок
Debug.Print "Папка занимает на диске " & РазмерПапкиВБайтах & " байтов (" & _
FileOrFolderSize(РазмерПапкиВБайтах) & ")"
End Sub
Результат работы кода (в окне Immediate):
В папке найдено 186 файлов и 31 подпапок. Всего файлов: 4216
Папка занимает на диске 193158100 байтов (184 Мб)
Если же вам надо вывести список файлов на лист Excel - смотрите функцию FilenamesCollection:
http://excelvba.ru/code/FilenamesCollection