Busca em um sistema de listar arquivos

Esse é o sistema que eu uso:

Set objFileSys = Server.CreateObject("scripting.FileSystemObject")Set Thefolder = objFileSys.GetFolder(CAMINHOFOTOS)Set Thefiles = TheFolder.files

<% For Each Thefiles in TheFiles %><% = Thefiles.name %><br><% next %>

É possível fazer uma busca nos arquivos? Exemplo:

LISTAR ARQUIVOS QUE CONTENHAM A PALAVRA 'BANNER'....