Search Criteria for a folder using FileSystemObject

Regular expressions in VBScript don't support 'negative look behind' so we therefore need some help from string functions if files beginning with Test_ are not to be skipped.

However, I think this script should work:

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFolderPath = "c:\whatever"

Set objFolder = objFSO.GetFolder(objFolderPath)

Set colFiles = objFolder.Files

Set reg = New RegExp

reg.Pattern = "\.(h|c)$"

reg.IgnoreCase = True

For Each objFile in colFiles

isMatch = reg.Test(objFile.Name)

If Not isMatch Or (isMatch And Lcase(Left(objFile.Name, 5)) = "test_") Then

Wscript.Echo objFile.Name

End If