Visual Basic Forum for Visual Basic Programmers VB - Interactive Visual Basic Forum .NET Programming & Help

Tony Walker · Newbie Joined: 18 Mar 2005 Posts: 17

I want to add a list of files from a sepcific folder in a listbox. How do I do that?

TriSight · Regular Joined: 12 Oct 2004 Posts: 69 Location: Mobile, AL

Here ya go, try this:

[vb]
Private Sub subAdd_Files(strDirectory as String, lstFileNames as Listbox)
Dim strFileName as String

If Right(strDirectory, 1) <> "\" Then strDirectory = strDirectory & "\"
strFileName = Dir(strDirectory & "*.*")
While strFileName <> ""
If Trim(strFileName) <> "." and Trim(strFileName) <> ".." Then
lstFileNames.AddItem strFileName
End If

strFileName = Dir
WEnd
End Sub
[/vb]
_________________
/=--_The Nomad_--=\
"Men of lofty genius when they are doing the least work are most active. " - Leonardo da Vinci