Joker tegn ved FileExists

Mener det gøres sådan:

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set dir = fso.GetFolder(server.mappath("."))

Set foldercollection = dir.Files
For Each file in foldercollection
  if instr( LCase(file.name), LCase(søgeord)) then
    <A HREF="<%=file.name%>"><%=navn%></A>
  end if
next

Lille rettelse - :o)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set dir = fso.GetFolder(server.mappath("."))

Set foldercollection = dir.Files
For Each file in foldercollection
  if instr( LCase(file.name), LCase(søgeord)) then
      Response.Write "<A HREF='" & file.name & "'>" & file.name & "</A>"
  end if
next

Kan du få det til at fungere?

Jeg kunne ikke komme ind på Eksperten hele dagen igår, så jeg har ikke fået det testet. Men det vil jeg gøre i dag eller i weekenden.

Men det ser meget godt ud :)