Определить и вывести список файлов в папке

[SMShrek]

Здравствуйте!

Проблема состоит в следующем: Нужно, в Excel определить список файлов находящихся в папке ...\n.

И вывести этот список хоть в ячейку, строку, столбик - без разницы, как нибудь.

???

[EducatedFool]

А что, поиск по форуму уже не работает?

http://programmersforum.ru/showthread.php?t=30219

[SMShrek]

Я искал... честно, но результата небыло...

[SMShrek]

Сообщение от EducatedFool

А что, поиск по форуму уже не работает?

http://programmersforum.ru/showthread.php?t=30219

-----------------------------------------------------------------------------

Очень красиво, класно!...

Но у меня задача немного другая. Если можно посмотрите пример...

[SMShrek]

Здравствуйте!!!

Задача состоит в следующем: Имеется файл Excel Primer.xlsx размещенный в папке ...\Тесты\... в ней находятся две подпапки "Учет и аудит" и "Финансы", по выбору пользователем нужно определить на Лист1 Список файлов из одной или другой папки...
И вывести этот список хоть в ячейку, строку, столбик - без разницы, как нибудь.
-------------
Сложность задачи в том:
1. Пользователь может скопировать папку "Тесты" или на CD или неизвестный винт (буква диска неизвестна).
2. Изменяющиеся вложенные папки
-------------
Посмотрите пример:

[EducatedFool]

Проверяйте:



Вот весь код:

Sub GetFolders()
    On Error Resume Next
    ClearFolders
    ПутьКГлавнойПапке = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
    Set fso = CreateObject("Scripting.FileSystemObject")

    For Each fld In fso.GetFolder(ПутьКГлавнойПапке).SubFolders
        ro = ro + 1: DoEvents
        Cells(ro + 3, 1) = ro
        Cells(ro + 3, 2) = fld.Name
        Cells(ro + 3, 3) = FileOrFolderSize(fld.Size)
    Next
    With ActiveSheet.Shapes("folders").ControlFormat
        .ListFillRange = [B4].Resize(ro).Address
        .DropDownLines = ro
    End With
End Sub

Sub ClearFolders()
    [a4:c16].ClearContents
End Sub

Sub CreateDirectoryListing()
    On Error Resume Next
    [e8:i800].ClearContents
    ПутьКПапке = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, [папка])
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(ПутьКПапке)

    Application.ScreenUpdating = False
    ro = 7
    For Each fl In fso.GetFolder(ПутьКПапке).Files
        ro = ro + 1: DoEvents
        Cells(ro, 5) = ro - 7
        Cells(ro, 6) = [папка]
        Cells(ro, 7) = fl.Name
        Cells(ro, 8) = FileOrFolderSize(fl.Size)
    Next
    Columns("g:h").AutoFit
    Application.ScreenUpdating = True
End Sub

[SMShrek]

Да єто то, что нужно... Даже больше

Огромное СПАСИБО...
Теперь буду разбираться, как все работает...