Jag skrev ihop ett litet skript...
<%
'Sökväg till katalogen
sSokvag_Katalog = "din sökväg"
'Visa antal filer per sida
iAntal_Filer_Per_Sida = 10
'Kollar om någon sida är vald
iVald_Sida = Trim(Request("sid_nr"))
'Validerar
If IsNumeric(iVald_Sida) = false then iVald_Sida = 1
'Skapar objekt
Set objFso = CreateObject("Scripting.FileSystemObject")
'Hämtar katalog
Set objKat = objFso.GetFolder(sSokvag_Katalog)
'Räknare
i = 1
'Startposition
iStart_Pos = (iVald_Sida * iAntal_Filer_Per_Sida) - iAntal_Filer_Per_Sida + 1
'Slutposition
iSlut_Pos = (iVald_Sida * iAntal_Filer_Per_Sida)
'Loopar igenom
For each objFil in objKat.Files
'Kollar intervallet, skriver ut filen om den är inom
If i >= iStart_Pos and i <= iSlut_Pos then
Response.Write(objFil.Name & "<br>" & vbCrLf)
end if
'Ökar
i = i + 1
next
'Stänger
Set objFso = Nothing
'Kollar hur många sidor det finns
iAntal_Sidor = CInt((i / iAntal_Filer_Per_Sida) + 0.99)
'Text
Response.Write("<br>Sidor: ")
'Skriver ut sidlänkarna
For i = 1 to iAntal_Sidor
'Sida
Response.Write("<a href='lista_filer.asp?sid_nr="& i &"'>"& i &"</a> ")
Next
%>