"Johannes Veje" <jv@jv-data.dk> skrev i en meddelelse
news:as0km1$o9k$1@news.cybercity.dk...
> Er der en der kan hjælpe mig med at ændre mit script, så den "KUN" tager
> filer med endelsen .pdf ? og ikke alle filer i bibliotektet ?
>
> <%
> dim dirtowalk, fs, f, fc, whatever
> dirtowalk="../bestyrelse/PDFfiler"
> Set fs = CreateObject("Scripting.FileSystemObject")
> Set f = fs.GetFolder(server.mappath(dirtowalk))
> Set fc = f.Files
> For Each whatever in fc
> response.write "<A HREF='PDFfiler/"
> response.write whatever.name
> response.write "'>"
> response.write whatever.name
> response.write "</A><br>"
> Next
> %>
Ja, du kan bruge følgende:
For Each whatever in fc
fileext = mid(lcase(whatever.name),InstrRev(whatever.name,".")+1)
Select case fileext
case "pdf":
response.write "<A HREF='PDFfiler/"
response.write whatever.name
response.write "'>"
response.write whatever.name
response.write "</A><br>"
End Select
Next
Mvh. Christoffer Thygesen