Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: OpenFileDialog - обработать множественный выбор. Добавлено: 11.07.04 15:09  

Автор вопроса:  Oleg K
VB.NET

В ListView добавляю в спсиок выбранные файлы через OpenFileDialog...

        Dim OpenDialog As New OpenFileDialog
        OpenDialog.Title = "Подбор файлов"
        OpenDialog.Filter = "Текс в формате RTF (*.rtf)|*.rtf|Текстовый документ (*.txt)|*.txt|ВСЕ файлы (*.*)|*.*"
        OpenDialog.FileName = ""
        OpenDialog.DefaultExt = "*.*"
        OpenDialog.CheckFileExists = True
        OpenDialog.CheckPathExists = True
        OpenDialog.Multiselect = True

        Dim ResultDialog As DialogResult = OpenDialog.ShowDialog()

        If ResultDialog = DialogResult.OK Then

<<<<<<< Нажал пользователь ОК. Как мне доступиться до ВЫБРАННЫХ файлов....

            FileName = OpenDialog.FileName.ToString
            FileName = FileName.Replace(System.IO.Path.GetDirectoryName(FileName) & "\", "")
            With LVAttachFile.Items.Add(FileName)
                .SubItems.Add(FileSize.Round(OpenDialog.OpenFile.Length.ToString / 1024, 3))
                .SubItems.Add(OpenDialog.FileName.ToString)
            End With
        End If

Т.е. с одним выбранным файлом все ясно, а вот как мне обработать "множественный выбор - список" не понятно.

Помогите, подскажите кто знает.

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Павел



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

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #1
Добавлено: 11.07.04 16:15
Свойство FileNames.

Ответить

Номер ответа: 2
Автор ответа:
 Oleg K



Вопросов: 15
Ответов: 72
 Профиль | | #2 Добавлено: 12.07.04 00:12
Спасибо Павел.
Разобрался.

Может кому будет интересно... вот приблизительно так:

        If ResultDialog = DialogResult.OK Then
            ;Dim Count As Integer
            For Count = 0 To OpenDialog.FileNames.GetUpperBound(0)
                ;Dim f As FileInfo = New FileInfo(OpenDialog.FileNames(Count))
                With LVAttachFile.Items.Add(f.Name)
                    .SubItems.Add(f.Length)
                    .SubItems.Add(f.FullName)
                End With
            Next
        End If

Еще раз спасибо.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам