count number of file names within a folder containing

[dumbledown]

Hi,
I have a folder (called C:\FolderOfInterest)
In it are loads of files including FileOfInterest1.txt, FileOfInterest2.csv and FileOfInterestExtra.other
Can anyone point me to code where I can retrieve a value for counting how many files are named including "FileOfInterest" within the folder; FileCounts=3 in this case.
Hope that makes sense
Many thanks

[June7]

In a loop structure read the name of each file in the folder and compare to the criteria. Increment a counter variable for each match. Review http://www.freevbcode.com/ShowCode.asp?ID=1487

[dumbledown]

Thanks for the response, I found this code that worked great


Sub
Demo()
MsgBox FileCountA("C:\temp\")
End Sub

Function FileCountA(Path As String) As Long Dim
strTemp As String Dim
lngCount As Long
strTemp = Dir(Path & "*.*")
Do While strTemp <> "" lngCount = lngCount + 1
strTemp = Dir
Loop FileCountA = lngCount
End Function