Bob --
Thank you for the method.
It works like a charm. I revised it to add a 3rd column (a value calculated
by the code) to the combobox and it still worked!
Another question:
Is there a property of a combo box which displays vertical lines between the
columns?
Larry
"Bob Phillips" wrote in message
...
Larry,
Here's some code to load a combobox
Private Sub UserForm_Initialize()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.Getfolder("c:\myTest")
With Me.ComboBox1
.ColumnCount = 2
For Each oFile In oFolder.Files
If oFile.Type = "Text Document" Then
.AddItem oFile.Name
.List(.ListCount - 1, 1) = oFile.DateLastModified
End If
Next oFile
.ListIndex = 0
End With
End Sub
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"L Mehl" wrote in message
...
Hello --
An application creates one or more text files, including a specific text
string in the name.
I want to display all file names and creation timestamp in a 2-column
combobox so the user can select the one which is to be imported into a
worksheet.
Can anyone suggest ways to do this, or tell me of examples they know of
which already do it?
Thanks for any help.
Larry Mehl
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.576 / Virus Database: 365 - Release Date: 1/31/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.576 / Virus Database: 365 - Release Date: 1/30/2004