Definere fil navn i script

Hej
Jeg har et script der læser alle filer i en mappe, og lister disse filer op i et asp dokument, hvorefter den laver et link til hver enkelt fil. Det fungere rigtig godt ... :-)

Nu har jeg så brug for lidt hjælp til at tilpasse scriptet lidt mere, jeg har nemlig behov for at kunne definere hvilke fil navne der må vises, det skal lige siges at alle filerne er pdf filer.

de filer jeg gerne vil vise hedder et fortløbende nummer + DELIVERY NOTE.pdf - så vil det være muligt at lave noget der ser på den sidste del i navnet, som altid er det samme, nemlig DELIVERY NOTE.pdf

Scripte det skal skrives ind i er her:
<% ListFolderContents(Server.MapPath("Financial/fur")) %>
<% sub ListFolderContents(path)
    dim fs, folder, file, item, url
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
    for each item in folder.Files
      url = MapURL(item.path)
      Response.Write("<li><a href=""" & url & """>" & item.Name & "</a>  " _
      & "</li>" & vbCrLf)
      next
    Response.Write("</ul>" & vbCrLf)
    Response.Write("</li>" & vbCrLf)
  end sub
  function MapURL(path)
    dim rootPath, url
    rootPath = Server.MapPath("/")
    url = Right(path, Len(path) - Len(rootPath))
    MapURL = Replace(url, "\", "/")
  end function %>

på forhånd tak for hjælpen