Help with Array search script

[Fyr]

I have a script below that goes into a specified directory and searches for 2 file extensions.
I know it's not setup correctly, I am needing help to get the script working correctly.

thanks for taking a look!

Option Explicit
Public TotalPathFiles As String
Public FSO As Object
Sub SearchFileCount()
Dim FilesInPath As String
Dim oFolder As Object
Dim oFiles As Object
Dim oFile As Object
Dim strExt(2) As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder("C:\TestCase")
Set oFiles = oFolder.Files
strExt(0) = "F01"
strExt(1) = "f01"
FilesInPath = 0
For Each oFile In oFolder.Files
[COLOR=red][B]   If Right(oFile, 3) = UBound(Filter(strExt, oFile)) Then[/B][/COLOR]
[B][COLOR=red]       FilesInPath = FilesInPath + 1[/COLOR][/B]
[B][COLOR=red]   End If[/COLOR][/B]
Next
End Sub

 

[GTO]

Maybe something like:

Sub SearchFileCount()
Dim FSO As Object
    
Dim FilesInPath As String
Dim oFolder As Object
Dim oFiles As Object
Dim oFile As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = FSO.GetFolder("C:\TestCase\")
    
    Set oFiles = oFolder.Files
    
    FilesInPath = 0
    
    For Each oFile In oFolder.Files
        If LCase(Mid(oFile.Name, InStrRev(oFile.Name, ".") + 1)) = "f01" Then
            FilesInPath = FilesInPath + 1
        End If
    Next
    
    MsgBox FilesInPath
End Sub

 

[GTO]

PS - I forgot to mention, just by the looks of your current, FilesInPath would be returning a number as a string, but then it doesn't do anything with the results. You may wish to mention where we'd like FilesInPath to ultimately end up, such as part of a msg to the user or ??? You may wish to turn the sub into a short function that returns the number (I would probably leave it a legit number, and convert later if needed).

 

[Fyr]

Thanks GTO!
That did the trick!!

 

[GTO]

You are most welcome and glad that helped