Søge efter fil - filobject?

sådan her fx..

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("din folder"))
Set filesObject = folderObject.Files

For Each file In filesObject
  if instr(file.Name, "Bent") then
response.write file.name & "<br>"
end if
next
%>