Настройка свойств листбокса:
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
[вложение удалено администратором]