count files containing specific string in a filename 1

[causative]

Hi forum members!
This code below count the number of txt files.
What should be changed to count files containing specific string in a filename?

Option Explicit 
 Dim fso, count, src, folder, file 
 Set fso = CreateObject("Scripting.FileSystemObject") 
 src = "C:\Users\Mark\Desktop\test" 
 Set folder = fso.GetFolder(src) 
 count = 0 
 For Each file In folder.files 
 If LCase(fso.GetExtensionName(file)) = "txt" Then 
 count = count + 1 
 End If 
 Next 
 WScript.Echo "Count: " & count

Thx in advice

 

[guitarzan]

Use the InStr function

http://www.w3schools.com/vbscript/func_instr.asp

Not tested:

Option Explicit 
 Dim fso, count, src, folder, file 
 Set fso = CreateObject("Scripting.FileSystemObject") 
 src = "C:\Users\Mark\Desktop\test"
 [highlight #FCE94F]stringtofind = "abc"[/highlight]
 Set folder = fso.GetFolder(src) 
 count = 0 
 For Each file In folder.files 
 [highlight #FCE94F]If instr(file.name, stringtofind, 0) > 0 Then[/highlight]
 count = count + 1 
 End If 
 Next 
 WScript.Echo "Count: " & count

 

[causative]

It returns error on line 2 - stringtofind is not declared so I changed line 1 to

Dim fso, count, src, folder, file, [highlight #FCE94F]stringtofind[/highlight]

but now it returns error on line 9

If instr(file.name, stringtofind, 0) > 0 Then

Type Mismatch

 

[guitarzan]

Sorry, I was going for a non-case-sensitive search, now I'm thinking this would be better (tested this time):

[tt]If instr(LCase(file.name), LCase(stringtofind)) > 0 Then[/tt]

 

[causative]

Now it works perfectly.
Thx