OK. No lo probé, pero ésto debería funcionar:
Código:
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder("c:\una_carpeta")
Set Archivos = Carpeta.Files
Encontrar = ".txt"
ArchivosEncontrados = 0
For Each Archivo in Archivos
If InStr(Archivo.Name, Encontrar) <> 0 Then
Mensaje = Mensaje & "El archivo " & Archivo.Name & " contiene " & Encontrar & " en su nombre<br>"
ArchivosEncontrados = ArchivosEncontrados + 1
End if
Next
If ArchivosEncontrados <> 0 Then
Response.Write Mensaje
Else
Response.Write "No se han encontrado archivos cuyo nombre contenga " & Encontrar
End if
Set Archivos = Nothing
Set Carpeta = Nothing
Set FSO = Nothing