VBA Макросы: Как получить список файлов из директории в ListBox?

Автор Посетитель, 18 сентября 2017, 14:58

Посетитель

Добрый день!
Решал задачу с объединением файлов. Хочется сначала проконтролировать, что объединять.
Как можно имя (название и расширение) файлов с расширением .doc или .docx из указанной директории занести в ListBox?

Администратор

Настройка свойств листбокса:
ColumnCount - 2
ColumnWidth - ;0. Это означает, что для первого столбца ширина будет по умолчанию, а у второго столбца ширина 0 и этого столбца не будет видно.
В скрытый столбец запишутся полные имена файлов (путь + имя), чтобы потом можно было обратиться к файлу.

Кнопки для запуска макроса нет, я запускал из VBA.

Код
Private Sub CommandButton1_Click()
    GetFiles
End Sub

Private Sub GetFiles()
   
    Dim MyPath As String, MyName As String
   
    '1. Очистка листбокса от старых данных.
    Me.ListBox1.Clear
   
    '2. Запись в листбокс полных имён и имён файлов.
    MyPath = "C:\Users\User\Desktop\Новая папка"
    MyName = Dir(MyPath & "\" & "*.doc*")
    Do While MyName <> ""
        Me.ListBox1.AddItem MyName
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = MyPath & "\" & MyName
        MyName = Dir
    Loop
   
End Sub
[свернуть]

[вложение удалено администратором]

Посетитель