Страница: 1 |
Страница: 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-сайт:
Профиль | | #1
Добавлено: 11.07.04 16:15
Свойство FileNames.
Номер ответа: 2
Автор ответа:
Oleg K
Вопросов: 15
Ответов: 72
Профиль | | #2
Добавлено: 12.07.04 00:12
Спасибо Павел.
Разобрался.
Может кому будет интересно... вот приблизительно так:
If ResultDialog = DialogResult.OK Then
 im Count As Integer
For Count = 0 To OpenDialog.FileNames.GetUpperBound(0)
 im 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
Еще раз спасибо.