Как скопировать имена выбранных файлов в Listbox?

[Пименов Александр]

На счет мультиселекта, если через шифт выделять файлы снизу, то то список файлов в окне диалога располагаются по порядку, так что в листбоксе встанут как надо, только не забывать учитывать что в листбоксе счет начинается с 0.
Теперь по Борщёву........ шутка
Прежде чем работать с кодами формы и таблицы в ворде нужно систематизировать выбранные в файлдиалоге данные, я тут вам родил кодик, который разбивает файлы по типам, с ним можно хоть новую таблицу создавать, хоть в старую вставлять и кучу еще разных полезных вещей делать, а то Все мучиете эту тему и никак не добьете. По таблице, и по форме тоже отдельные предложения..........

Public ColletionTypeFiles As Collection
Public ColletionTypeFile As Collection
Public ColletionFiles As Collection
Public FSO As FileSystemObject

Public Sub CreateCollection(FD As FileDialog)
Dim booFType As Boolean, i As Long, j As Long
    Set FSO = New FileSystemObject
        If FD.SelectedItems.Count < 1 Then Exit Sub
            Set ColletionTypeFiles = New Collection
                For i = 1 To FD.SelectedItems.Count
                    If ColletionTypeFiles.Count = 0 Then
                        Set ColletionTypeFile = New Collection
                            ColletionTypeFiles.Add ColletionTypeFile
                            ColletionTypeFile.Add FSO.GetExtensionName(FD.SelectedItems(i))
                                Set ColletionFiles = New Collection
                                    ColletionTypeFile.Add ColletionFiles
                                    ColletionFiles.Add FD.SelectedItems(i)
                    Else
                        For j = 1 To ColletionTypeFiles.Count
                            Set ColletionTypeFile = ColletionTypeFiles(j)
                                If ColletionTypeFile.Item(1) = FSO.GetExtensionName(FD.SelectedItems(i)) Then
                                    Set ColletionFiles = ColletionTypeFile.Item(2)
                                        ColletionFiles.Add FD.SelectedItems(i)
                                        booFType = True
                                        Exit For
                                Else
                                    booFType = False
                                End If
                        Next j
                            If booFType = False Then
                                Set ColletionTypeFile = New Collection
                                ColletionTypeFiles.Add ColletionTypeFile
                                ColletionTypeFile.Add FSO.GetExtensionName(FD.SelectedItems(i))
                                    Set ColletionFiles = New Collection
                                        ColletionTypeFile.Add ColletionFiles
                                        ColletionFiles.Add FD.SelectedItems(i)
                            End If
                        End If
                    Next i
End Sub

Public Sub OpenFD()
Dim FD As FileDialog
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
        FD.Show
        Call CreateCollection(FD)
End Sub

Сам по себе запускной код OpenFD, в сокращенном виде, без настроек фай диалога, запускает CreateCollection, который привязан к выбранным файлам, фильтр может быть любой. Если что не понятно пишите, потому, что без понимания этого кода, остальное бесполезно......

[@лeся]

хм у меня почему то ругается на объявленную переменную
FileSystemObject - говорит user-difined type not defined

в общих чертах вроде понятно )

[@лeся]

да и у меня вроде работает ,домученный,другое дело что можно совершенствовать,бесконечно ))

[Пименов Александр]

Ругается на FSO потому, что у Вас не подключен объект MicrosoftScriptingRuntime,
который у Вас есть Tools-->Reference, подключите его и Вам будет доступна работа с
FileSystemObject, это значительно облегчит работу с файловой системой или же сделайте
Public FSO as Object
а в коде
Set FSO = CreateObject("Scripting.FileSystemO bject")
но тогда вам вручную придется набирать команды для FSO.
Тот скрипт который я вам написал делает структуру файлов, которую можно использовать как применительно к форме так и применительно к таблице.
А таблицу снабдил бы закладками, общую закладку на всю таблицу, например "Таблица_файлов" по которой мы без ошибок обратимся к нужной таблице и отдельные закладки на каждый тип файлов, по ним тогда можно будет проверять, если в данном типе файл с именем или нет, и тогда добавлять

[@лeся]

Сообщение от Пименов Александр

Ругается на FSO потому, что у Вас не подключен объект MicrosoftScriptingRuntime,
который у Вас есть Tools-->Reference, подключите его и Вам будет доступна работа с
FileSystemObject, это значительно облегчит работу с файловой системой или же сделайте
Public FSO as Object
а в коде
Set FSO = CreateObject("Scripting.FileSystemO bject")
но тогда вам вручную придется набирать команды для FSO.
Тот скрипт который я вам написал делает структуру файлов, которую можно использовать как применительно к форме так и применительно к таблице.
А таблицу снабдил бы закладками, общую закладку на всю таблицу, например "Таблица_файлов" по которой мы без ошибок обратимся к нужной таблице и отдельные закладки на каждый тип файлов, по ним тогда можно будет проверять, если в данном типе файл с именем или нет, и тогда добавлять

насчет последнего,там всё строго шаблон файла неподразумевает наличие иных таблиц.
так что tables(1) вполне годится,иначе пошлёт на Exit с предупреждением. Изначально думала насчет закладок,но решила что учитывая нестабильность и нестандартность мышления и соответственно действий некоторых, сойдет и так. Где хотят пусть вставляют. Они ведь и закладки могут подтереть

FilesObject подключу испробую метод,на будущее. Сильно не усердствую,поскольку и этот труд может оказаться неоправданным
Это я к тому чт оможно считать тему закрытой (если пожелаете ),не хочу больше утруждать

[Пименов Александр]

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