Listbox search at any position

[yinkajewole]

I have a listbox that displays the list of files in a folder. i have a textbox that i want to use to search files, for instance, if i should type "ice" it should displays files like "rice, price, apprentice, iceland"

 

[yinkajewole]

@Fluff can you please create a search box for the code

Private Sub UserForm_Initialize()Dim x As Long, FileNum As Long, TotalFile As String, Lines As Variant
FileNum = FreeFile
Open "c:\Users\History.txt" For Binary As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
TotalFile = Space(LOF(FileNum))
Get [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] , , TotalFile
Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
Lines = Split(TotalFile, vbCrLf)
With ListBox1
For x = UBound(Lines) To 0 Step -1


    .AddItem Split(Lines(x), "|")(0)
    .List(.ListCount - 1, 1) = Mid(Lines(x), InStr(1, Lines(x), "|") + 1)


Next
End With

ListBox1.ColumnWidths = "0;200"
End Sub

the columncount = -1

 

[Fluff]

This question has nothing to do with your op, so please start a new thread

 

[yinkajewole]

This question has nothing to do with your op, so please start a new thread

I'm sorry, i thought it still goes along with this thread so as not to have duplication of threads, nevertheless, according to your word, i'll start a new thread, thanks