Definere fil navn i script
HejJeg 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