How To Load The Names Of All Files In A Folder In A ListBox?

[AlterEgo]

How?

[Hack]

Try this

Private Sub Command1_Click()
Dim LoadFiles As String
List1.Clear
LoadFiles = Dir("c:\program files\qcap\*.*")
Do While LoadFiles > ""
   List1.AddItem LoadFiles
   LoadFiles = Dir
Loop
End Sub

[deane034]

or use da file list box

[AttnSue]

What if you didn't want the file names, but just wanted the folder names?

[Hack]

A minor amendment to my previous post should do the trick

Private Sub Command1_Click()
List1.Clear
Dim LoadFiles As String
List1.Clear
LoadFiles = Dir("c:\program files\", vbDirectory)
Do While LoadFiles > ""
   List1.AddItem LoadFiles
   LoadFiles = Dir
Loop
End Sub

[DovyWeiss]

then use FolderListBox control and check the Path property

[DovyWeiss]

on second thought it's called the DirListBox control... oops