File directory into a listbox

[Richard Edwards]

All,

In listbox1 I am trying to retreive the contents of directory
"k:\files\*.csv" and am having real problems in doing this.

Can anyone give me the quick answer.

Thank you.

Richard

 

[Chip Pearson]

Richard,

Try something like

Private Sub CommandButton1_Click()
Dim FName As String
With Me.ListBox1
.Clear
FName = Dir("k:\files\*.csv")
Do Until FName = ""
.AddItem FName
FName = Dir()
Loop
End With
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Richard Edwards]

Thank you very much. Spot on!

Just another quick question that I forgot to ask 1st time round. How do I go
about using the file I have highlighted?

ie: variable = listbox1.selection(?)

Thank you.

Richard

 

[Chip Pearson]

Richard,

To get the selected file in the list box, use

With Me.ListBox1
If .ListIndex >= 0 Then
Variable = .List(.ListIndex)
End If
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Richard Edwards]

Got it. Thank you.

Richard,

To get the selected file in the list box, use

With Me.ListBox1
If .ListIndex >= 0 Then
Variable = .List(.ListIndex)
End If
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


I