File directory into a listbox
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 |
File directory into a listbox
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" wrote in message ... 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 |
File directory into a listbox
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" wrote in message ... 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" wrote in message ... 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 |
File directory into a listbox
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" wrote in message ... 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" wrote in message ... 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" wrote in message ... 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 |
File directory into a listbox
Got it. Thank you.
"Chip Pearson" wrote in message ... 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" wrote in message ... 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" wrote in message ... 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" wrote in message ... 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 |
All times are GMT +1. The time now is 08:16 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com