[RESOLVED] VB simple query (I think)

Hello all, I'm just new on here and I thought that some of you guys might be able to help me out with something thats been confusing me for a while now...

Ok basically I'm using VB.net to create a program and part of it's functionality requires a combo box to be populated by titles of files from a directory on my hard drive. That bit has been done using this :

Me.cbo_user.DataSource = New System.IO.DirectoryInfo("E:\Pics\").GetFiles("*.jpg")

All works fine, combo box is successfully populated but the thing I'm struggling with is finding out how to remove the .jpg file extension from every item that is added to the combo box. I have been able to remove the extension using :

Me.cbo_user.Text = cbo_user.Text.Substring(0, cbo_user.Text.Length - 4)

Problem with this is, obviously it only removes the extension from the currently selected item, whereas I want the entire list "extension free"

Any help would be much appreciated, cheers.

Robin

Load the list into an array (or a List(Of String) ) .... loop through it removing the extension, and then bind that to the combo....

-tg

Yeah that was another way I tried but I'm relatively new to VB.net and I'm a bit unsure on working with arrays etc. I take it thats the best way then? I'll give it another shot sure. Cheers.

perhaps something like this would help:

Code:

---

        Dim Files() As String = System.IO.Directory.GetFiles("E:\Pics\", "*.jpg")
        For Counter As Integer = 0 To Files.GetUpperBound(0)
            Files(Counter) = Files(Counter).Remove(Files(Counter).Length - 4, 4)
        Next Counter
        Me.cbo_user.DataSource = Files

---

Thats exactly what I was looking for thanks a lot! Only thing is, using that code leaves me with the entire path name before the files...

That makes things a little easier to maintain:

Code:

---

        Dim Files() As String = System.IO.Directory.GetFiles("E:\Pics\", "*.jpg")
        For Counter As Integer = 0 To Files.GetUpperBound(0)
            Files(Counter) = System.IO.Path.GetFileNameWithoutExtension(Files(Counter))
        Next Counter
        Me.cbo_user.DataSource = Files

---

Thats it, perfect - problem resolved. Cheers Juggalo for the quick response!

Welcome to the forums Kavna. :wave:

If you consider this resolved, you could help us out by pulling down the Thread Tools menu and clicking the Mark Thread Resolved menu item. That will let everyone know that you have your answer.

Thank you. :)