Search Files by Tags

[Alexasaurus]

I am very new to VBA and have been learning as I go on a work project. One of the things that was requested was to have a search bar to find other files of a similar problem solving event.
What I want to be able to do to have a vba program that opens file explorer and searches by tags. but all I have been able to manage to figure out is how to open the file explorer using Shell. I have searched high and low on the internet trying to find anything that will specify searching by tags.

If I use the search bar on the file explorer I can search by tags by typing "tags:[tag name]"

I tried something like

Sub SearchTool()
Dim searchlocation As String
Dim tagname As String
Dim searchtag As String

searchlocation = \\my files
tagname = sheet1.Range("A1").Value
searchtag="tags:"& tagname

Call Shell ("explorer.exe" & " " & searchlocation & "search-ms:query = searchtag", vbNormalFocus)

End Sub

 

[Micron]

I have searched high and low on the internet trying to find anything that will specify searching by tags.

... and found nothing, or did but could not make it work? By searching
vba file search using tags

I got these, among others.

Search Folder looking for File Tags [Archive] - VBA Express Forum

Hello. I need write a VBA procedure which will search all files within a folder. But instead of searching for file names, I want to search for File Tags. So, for example, I'd want to return the names of all files in my folder where the Tag = "Van Halen" regardless of what the name of the...

www.vbaexpress.com

Get file tags in VBA using variable file name

I'm using VBA in Excel to loop through a series of files and decide which ones to import. I'd like to decide which files to import using something like the file's tags, so that I don't need to open...

superuser.com

Have to admit that I've never done this so all I can do is research. I don't think I've ever saved a file with tags.

 

[Alexasaurus]

I actually just found something and was able to modify it and "Frankenstein" some other code together to get it to search by tags. For some reason, it will only work properly if there isn't already a file explorer open so thats why the "CloseWindow" sub is there. Not very pretty but does the job.

Sub ShowSearch(searchWhere, searchFor, Optional SearchByKeyword As Boolean = False)
    Const CMD As String = "explorer.exe ""search-ms:crumb=name:{query}&crumb=location:{location}"" "
    Dim s
    s = Replace(CMD, "{query}", WorksheetFunction.EncodeURL(searchFor))
    s = Replace(s, "{location}", WorksheetFunction.EncodeURL(searchWhere))
    If SearchByKeyword Then s = Replace(s, "crumb=name:", "crumb=")
    'Debug.Print s
    Shell s
End Sub

Sub SearchEngine()
Dim filesearch As String
Dim tagname As String
Dim tagsearch As String

filesearch = "put your file location here"
tagname = Sheet1.Range("A1").Text 
tagsearch = "tags:" & Chr(34) & tagname & Chr(34)

Call CloseWindow
ShowSearch filesearch, tagsearch, True


End Sub

Sub CloseWindow()

    Dim objWMIcimv2 As Object, objProcess As Object, objList As Object
    Dim intError As Integer

    Set objWMIcimv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set objList = objWMIcimv2.ExecQuery("select * from win32_process where name='explorer.exe'")

    For Each objProcess In objList
        intError = objProcess.Terminate
        If intError <> 0 Then Exit For
    Next

    Set objWMIcimv2 = Nothing
    Set objList = Nothing
    Set objProcess = Nothing
End Sub