Oversigt over htm-filer i en mappe

<SELECT SIZE="8" NAME="filer">

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder(server.mappath("mappe"))

Set fc = fo.Files

For Each file in fc
    if (Right(file.name,4) = ".htm") or (Right(file.name,5) = ".html") Then

    %>

    <OPTION VALUE="<%= application("filer_upload") & file.name %>"><%= file.name %></OPTION>
    <%
    end if
next
%>
</SELECT>

Den viser en select-boks med alle filerne i en given mappe, du kan jo rette den til efter behov. application("filer_upload") & kan du sagtens fjerne, da det ikke skal bruges i dit tilfælde.

Den her under udskriver filerne med typen htm og html
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder(server.mappath("mappe"))

Set fc = fo.Files

For Each file in fc
    if (Right(file.name,4) = ".htm") or (Right(file.name,5) = ".html") Then

      Response.Write file.name &"<br>"
    end if
next
%>