Visual Basic > Code Snippets

Common dialog to list box

Common dialog to list box

this will let a user select a file and places in in a list box


'place a list box, command button and a common dialog
'control on a form 

Private Sub Command1_Click()
Dim file As String
CommonDialog1.Action = 1
CommonDialog1.ShowOpen
file = CommonDialog1.Filename
List1.AddItem file
End Sub