View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
L Mehl L Mehl is offline
external usenet poster
 
Posts: 73
Default Filename and creation timestamp in 2-column combobox

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