Search companion

[voycron]

The following code opens search companion and automatically enters the drive, but not the filename. Can this code be alter to also add filename and start the search?


>>>>>>>>>>>>>>>>>>>>>>>>>
Option Explicit
'API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch& Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long)

Private Const SW_SHOWNORMAL = 1

Sub ShowWindowsSearchDialog_API()
' Specified drive to Search
Const szSDrive As String = "\\jt3cx\Recordings\103\"
ShellSearch 0, "find", szSDrive, "", "", SW_SHOWNORMAL
End Sub

 

[rallcorn]

I'm no VBA guru, but here's an example of what I've used multiple times.

'Open TEMPLATE file
Dim FilePath As String
FilePath = "[URL="file://oafs4/Finance$/Budget/2011"]\\oafs4\Finance$\Budget\2011[/URL] Budget\Final Budgets\Master - 2011 Budget Report.xlsx"
Workbooks.Open Filename:=FilePath

I don't know if you can accomplish the same by simply adding the file name to your

Const szSDrive As String = "\\jt3cx\Recordings\103\"

 

[voycron]

the reason why im trying to use search companion is because i am not searching for a workbook or any excel extentions. I want to be able to search for example a *.wav or *.jpeg file