VB .net query

Polonious

I'm writing a program that allows me to add filenames to a list box using an OpenFileDialog. This works fine if i add one at a time, however i want to be able to select a bunch of files and add them at once to the list box. When i do this however, it only adds the last one. Anybody know how i can fix this?

Thanks,

P

mewso

set the multiselect property to true.

Polonious

Yep I knew that bit, which allows me to select the files, but when i click open only one appears in the list box...

bonkey

What code are you using to populate teh listbox with?

Maybe if you posted the current code, it would be easier to point out the flaw.

jc

mewso

If OpenFileDialog1.ShowDialog = DialogResult.OK Then
    Dim s As String
    For Each s In OpenFileDialog1.FileNames
        's is now the path to each file
    Next
End If

Evil Phil

I'm assuming you left some code out of your for-each loop there. Could you post the full code?

mewso

Well all I'm sayng is the variable s is a string of the full path to each file. I don't know what anybody wants to do with it. If you were adding it to a listbox I suppose it would be listbox1.items.add(s) or something. Up to you.

*Edit. Phil I'm posting a possible solution. Taint me with the problem.

Polonious

Here is the code and it works. But it needs to be altered in some way so that when i enable multiselect it will work...

Private Sub cmdAddFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddFiles.Click

Dim additem As String
Dim MyDialog As New OpenFileDialog

MyDialog.Multiselect = False
MyDialog.InitialDirectory = "C:\"
MyDialog.Filter = "csv files (*.csv)|*.csv"

If (MyDialog.ShowDialog() = DialogResult.OK) Then
additem = MyDialog.FileName
lstFileList.Items.Add(additem)
End If

End Sub

aidan_walsh

Polonious wrote:

Here is the code and it works. But it needs to be altered in some way so that when i enable multiselect it will work...

Private Sub cmdAddFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddFiles.Click

Dim additem As String
Dim MyDialog As New OpenFileDialog

MyDialog.Multiselect = False
MyDialog.InitialDirectory = "C:\"
MyDialog.Filter = "csv files (*.csv)|*.csv"

If (MyDialog.ShowDialog() = DialogResult.OK) Then
additem = MyDialog.FileName
lstFileList.Items.Add(additem)
End If

End Sub

Get your returned files using FileNames instead of FileName, and then loop through the array of strings, adding each to the list item.

mewso

Yeah sorry I must have been using invisible text in that code sample I posted.

Peace

This....

musician wrote:

If OpenFileDialog1.ShowDialog = DialogResult.OK Then
    Dim s As String
    For Each s In OpenFileDialog1.FileNames
        's is now the path to each file
    Next
End If

Plus this...

Polonious wrote:

 additem = MyDialog.FileName
lstFileList.Items.Add(additem)

should get you sorted.

Polonious

Nice one Musician, that worked a treat. Thanks all for your help.

Evil Phil

If OpenFileDialog1.ShowDialog = DialogResult.OK Then

    stFileList.Items.AddRange(OpenFileDialog1.FileNames)

End If

Would be a neater way to do it as there's no need for all that looping, please note that this code may not be exact as I'm translating from C# and don't know vb.net. You get the idea though

musician wrote:

*Edit. Phil I'm posting a possible solution. Taint me with the problem.

Soz, mixed you up with the OP.

mewso

Evil Phil wrote:

Would be a neater way to do it as there's no need for all that looping,

Assuming you dont want to create objects with the strings before adding them to the listbox or can you with addrange (put them in a collection perhaps)?