How to find ListIndex of items in FileListBox

[princemuchao]

Okay, what I'm trying to do is use the filelistbox as an item that is always open in a text editor program I am creating... all text files are in the same dir as the program, so I have only a filelistbox.

The problem I am having is when someone adds a new file, I can't get the focus to change to that new text file. I assume that the way to do it would be to get the ListIndex by using the string, but I can't get it to work.

My first clumsy attempt illustrated below might illustrate what I'm trying to do a little better:

Dim strpath As String
Dim n As Integer
strpath = InputBox$("Enter new file name:&quot
File1.List = (strpath & ".x&quot
Open (strpath & ".x&quot For Random As #1
Close #1
File1.Refresh
File1.ListIndex

Any help would be greatly appreciated...
PMC

 

[swilliams]

If you want to highlight the last entry in the list, use:

File1.ListIndex = File1.ListCount - 1

Simon

 

[princemuchao]

Normally that would work fine, but when the file gets added, it sorts them alphabetically, so the last file in the filelistbox isn't necessarily the last file added.

 

[swilliams]

In that case, loop through the list, looking for your new file. When you find it, set the selected(i) property to True:

Dim l As Long
Dim sFile as String
' set sFile to the one you want
For l = 0 To File1.ListCount - 1
If File1.List(l) = sFile Then
File1.Selected(l) = True
Exit For
End If
Next l

Simon

 

[princemuchao]

Beautiful! Worked like a charm... thanks!