Come faccio a Usare La propietà Multi select di un Open File Dialog?

Question

Ciao eccomi di nuovo, come da titolo vorrei sapere come posso fare per selezionare più file all' interno di un Openfile dialog, io già vi dico che ho impostato il 

Dim ScegliFile = New OpenFileDialog
ScegliFile.Multiselect = True

il mio codice è questo 

Private Sub BtnSf_Click(sender As System.Object, e As System.EventArgs) Handles BtnSf.Click
        Dim ScegliFile = New OpenFileDialog
        ScegliFile.Filter = "Excel File 2007/2010|*.xlsx; *.xls"
        Dim ApriFile = ScegliFile.ShowDialog()
        Dim Risultato = ScegliFile.FileNames
        ScegliFile.Multiselect = True
        If ApriFile = DialogResult.OK Then
            Dim file As String
            For Each file In Risultato
                Try
                    Dim item As New ListViewItem(Risultato)
                    item.Checked = True
                    ExcelList.Items.Add(file)
                Catch ex As Exception

                End Try
            Next
        End If
    End Sub

in poche parole io riesco ad aprire l' Open File Dialog , seleziono un file e poi premo Ctrl  o Shift  per fare il multi select , ma niente non me lo fa fare , perchè?

Answer 1

nessuno?

Answer 2

> nessuno?

Ciao,

la domanda dovresti farla sul forum di Visual Basic, e non qui sul forum di Visual Studio, però l'errore è visibile nello snippet che hai incollato. Tu metti l'istruzione

ScegliFile.Multiselect = True

dopo avere chiamato lo showdialog, per cui quando chiami lo showdialog la tua openFileDialog non è ancora in multiselect. ;)

Gian Maria

---

Ricci Gian Maria. (http://www.codewrecks.com)

Answer 3

Ok , scusa non è che me la potresti spostare nella seziona giusta?

Comunque non funziona  neanche come mi dici te :'(

Answer 4

Ok , scusa non è che me la potresti spostare nella seziona giusta?

Comunque non funziona  neanche come mi dici te :'(

A me funziona perfettamente, ecco il codice.
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim ScegliFile = New OpenFileDialog
       ScegliFile.Filter = "Excel File 2007/2010|*.xlsx; *.xls"
        ScegliFile.Multiselect = True
       Dim ApriFile = ScegliFile.ShowDialog()
       Dim Risultato = ScegliFile.FileNames
       If ApriFile = DialogResult.OK Then
           Dim file As String
           For Each file In Risultato
               Try
                   RichTextBox1.AppendText(file + vbCrLf)
               Catch ex As Exception
                End Try
           Next
       End If
    End Sub

Fammi sapere :)

Gian Maria

---

Ricci Gian Maria. (http://www.codewrecks.com)

Answer 5

Funziona Grazie