File searching in VBA

Question

I wrote a vba code that browse all path folder and search for \"strings.xml\" file.

Dim oFS As Office.FileSearch
Dim i As Integer
Set oFS = Application.FileS         


        

Answer 1

replace:

sPath = "D:\Workspace\values" 'Change Path
sFil = Dir(sPath & "string.xml") 'All files in Directory matching name

with:

sPath = "D:\Workspace\values\" 'Change Path
sFil = Dir(sPath & "*.xl*") 'All files in Directory matching name