Можно ли выбрать несколько файлов одновременно для открытия через CommonDialog

@Lander13 · Регистрация: 03.10.2012

Студворк — интернет-сервис помощи студентам

вот так выбираю файл для открытия.

Visual Basic

1
2
3

CD1.Filter = "TXT|*.txt|DOC|*.doc|"
CD1.ShowOpen
Text1.Text = CD1.FileName

можно ли одновременно выбрать несколько файлов для открытия? например 3 файла и записать их пути в отдельные текстовые поля?

@The trick · 01.07.2013, 20:31

Visual Basic

Option Explicit
 
Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_EXPLORER = &H80000
 
Private Sub Form_Load()
    cDialog.Flags = OFN_ALLOWMULTISELECT Or OFN_EXPLORER
    cDialog.ShowOpen
End Sub

Смотри св-во FileName. Имена файлов разделени vbNullChar'ом, можешь разделить Split'ом по vbNullChar, или вручную. Первым элементом будет путь, затем имена выбранных файлов.
Вообще лучше пользоваться напрямую функциями GetOpenFileName, GetSaveFileName.

@Lander13 · 02.07.2013, 08:58 **[ТС]**

можно код для записи путей в текстовые поля...я немного не понимаю..

@PAnT0P · 02.07.2013, 09:06

Visual Basic

Dim I As Integer
Dim Files() As String
Files = Split(cDialog.FileName, vbNullChar)
For I = 1 To Ubound(Files) - 1
    TexBox1.Text = TexBox1.Text & Files(0) & "\" & Files(I) & vbCrLf
Next I

Возможно что слеш между Files(0) и Files(I) лишний, писал по памяти сейчас уже не помню.

@Lander13 0 / 0 / 0 Регистрация: 03.10.2012 Сообщений: 41
	02.07.2013, 08:58 [ТС]	3
	можно код для записи путей в текстовые поля...я немного не понимаю.. 0

	02.07.2013, 09:06

Опции темы

Можно ли выбрать несколько файлов одновременно для открытия через CommonDialog

Решение