Search for Files in UNC Path

Hello,

We have two servers that store CVS files in multiple sub folders of a directory. I need to come up with a way to search for these files by name and allow the user to open the file. 

strDir = "c:\somefolder\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objDir = FSO.GetFolder(strDir)
getInfo(objDir)

Sub getInfo(pCurrentDir)

For Each aItem In pCurrentDir.Files
   If LCase(Right(Cstr(aItem.Name), 3)) = "csv" Then
   
         ' file found, do something with it

   End If
Next


For Each aItem In pCurrentDir.SubFolders
   getInfo(aItem) 'passing recursively
Next

End Sub