The enter key and the DirListBox 1

[bjwade62]

I want to be able to select a folder in the dirlistbox, then hit the enter key and have it open the folder. I've tried the keydown event but no luck.

Can anyone help?
Thanks,
Bernie

 

[Foada]

Give this a try

Option Explicit
Dim sPath As String

Private Sub Dir1_Click()
sPath = Dir1.List(Dir1.ListIndex)
End Sub

Private Sub Dir1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Dir1.Path = sPath
End Sub

Let me know if this helps. If you choose to battle wits with the witless be prepared to lose.

 

[bjwade62]

Worked Great! Thanks alot!