Solved

Populate list box with multiple file types

Posted on 2008-10-03
5
238 Views
Last Modified: 2013-11-27
I want to populate a list box from a directory with multiple particular file types, jpg or bmp or dwf only. can anyone suggest some code for vb express 2008.

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        TextBox1.Text = "c:\test\"

        Dim files() As String = IO.Directory.GetFiles(TextBox1.Text)

        ListBox1.Items.Clear()

        For Each file As String In files

            ListBox1.Items.Add(IO.Path.GetFileName(file))

        Next

    End Sub

Open in new window

0
Comment
Question by:cheshirefire
  • 2
  • 2
5 Comments
 
LVL 19

Expert Comment

by:alb66
ID: 22649113
You can use the second parameter to specify the file type:

Dim files() As String = IO.Directory.GetFiles(TextBox1.Text, "*.jpg")

See
http://msdn.microsoft.com/en-us/library/ms143316.aspx
0
 

Author Comment

by:cheshirefire
ID: 22649589
My apologies what I meant was *.jpg AND *.bmp AND *.dwf exclusively.

The directory has several other file types that another program uses i.e. htm's, txt's  so all I want are the above file types.

thanks
0
 
LVL 19

Accepted Solution

by:
alb66 earned 150 total points
ID: 22649799
It should be:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ListBox1.Items.Clear()

        TextBox1.Text = "c:\test\"
 

        Dim files1() As String = IO.Directory.GetFiles(TextBox1.Text, "*.jpg")

        For Each file As String In files1

            ListBox1.Items.Add(IO.Path.GetFileName(file))

        Next
 

        Dim files2() As String = IO.Directory.GetFiles(TextBox1.Text, "*.bmp")

        For Each file As String In files2

            ListBox1.Items.Add(IO.Path.GetFileName(file))

        Next
 

        Dim files3() As String = IO.Directory.GetFiles(TextBox1.Text, "*.dwf")

        For Each file As String In files3

            ListBox1.Items.Add(IO.Path.GetFileName(file))

        Next

    End Sub

Open in new window

0
 
LVL 96

Assisted Solution

by:Bob Learned
Bob Learned earned 150 total points
ID: 22649912
How about a little optimization:

Example:

Dim fileList As List(Of String) = FileSystemObject.GetFilteredFileList("C:\Windows\Web\Wallpaper", "jpg", "bmp")
Imports System.Collections.Generic

Imports System.IO
 

Public Class FileSystemObject
 

    ''' <summary>

    ''' Get a filtered list of files, based on the file extensions passed.

    ''' </summary>

    ''' <param name="filePath">The full path directory name</param>

    ''' <param name="extensionList">A list of extensions (i.e. jpg, gif, bmp, png)</param>

    ''' <returns>A list of </returns>

    ''' <remarks></remarks>

    Public Shared Function GetFilteredFileList(ByVal filePath As String, ByVal ParamArray extensionList As String()) As List(Of String)
 

        Dim fileList As New List(Of String)
 

        For Each extension As String In extensionList

            fileList.AddRange(Directory.GetFiles(filePath, "*." & extension))

        Next extension

        Return fileList
 

    End Function
 

End Class

Open in new window

0
 

Author Closing Comment

by:cheshirefire
ID: 31502691
Many thanks to you all, problem solved
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

This article describes how to add a user-defined command button to the Windows 7 Explorer toolbar.  In the previous article (http://www.experts-exchange.com/A_2172.html), we saw how to put the Delete button back there where it belongs.  "Delete" is …
After several hours of googling I could not gather any information on this topic. There are several ways of controlling the USB port connected to any storage device. The best example of that is by changing the registry value of "HKEY_LOCAL_MACHINE\S…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now