Thank you, Shah.

Larry

"Shailesh Shah" wrote in message
...
Hi,

Another method to try,

Example from VBA Help & modified.

Private Sub UserForm_Initialize()
Dim mypath, myname

mypath = "c:\windows\" ' Set the path.
myname = Dir(mypath, vbDirectory) ' Retrieve the first entry.
With Me.ComboBox1
Do While myname < "" ' Start the loop.
' Ignore the current directory and the encompassing
directory.
If myname < "." And myname < ".." Then
' Use bitwise comparison to make sure MyName is a Fileanme

If (GetAttr(mypath & myname) And vbDirectory) <
vbDirectory Then

'Debug.Print MyName ' Display entry only if it
represents a filename
If UCase(Right(myname, 4)) = ".TXT" Then
.ColumnCount = 2
.AddItem myname
.List(.ListCount - 1, 1) = FileDateTime(mypath &
myname)
End If
End If
End If
myname = Dir ' Get next entry.
Loop
If .ListCount 0 Then .ListIndex = 0
End With
End Sub



Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!


---
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