Search Filename With Userform(Textbox1) Multiple Criteria

[epoiezam]

Goodday Guys:

Can a textbox be used as a multiple criteria filter. (filenames in a Dir)
If Yes, can you please share the code. Thank you

Example:-
Current Dir
1) Project Japan and Korea
2) Project Poland and Norway
3) Project China and India

Filter/Search:
Textbox1 value = Norway Poland

Result:
Project Norway and Poland

 

[DanteAmor]

Where do you want the result?

 

[epoiezam]

Where do you want the result?

Hi Dante.

The result will be displayed in Userform8-Listbox1 field
Fyi, I've got this part covered.

Only a bit stuck with the multiple filter codes. (Textbox1)

 

[epoiezam]

Below is my current code:-

UserForm8.ListBox1.Clear
Filename = Dir("\\D18090\Dictionary\" & "*" & Me.TextBox1.Value & "*" & "*")
Do While Len(Filename) > 0
UserForm8.ListBox1.AddItem Filename
Filename = Dir()
Loop

 

[DanteAmor]

Try this

Private Sub CommandButton1_Click()
  Dim wFile As Variant, wPath As String, dict As Object, wItem As Variant
  If TextBox1.Value = "" Then
    MsgBox "Fill textbox"
    TextBox1.SetFocus
    Exit Sub
  End If
  ListBox1.Clear
  wPath = "\\D18090\Dictionary\"
  
  Set dict = CreateObject("scripting.dictionary")
  For Each wItem In Split(TextBox1, " ")
    wFile = Dir(wPath & "*" & wItem & "*" & "*")
    Do While wFile <> ""
      If Not dict.exists(wFile) Then
        dict.Item(wFile) = Empty
        ListBox1.AddItem wFile
      End If
      wFile = Dir()
    Loop
  Next
End Sub

 

[epoiezam]

Hi Dante:

Thank you. But the said code doesn't work. Nothing happen even for the normal filter

 

[DanteAmor]

Can you put a real sample of the names of your files and what did you put in the textbox?

You can also try another folder on the same disk where you have the file with the macro.