Prøv dette her engang.
Vidste ikke lige, hvordan din bruger skal vælge antallet, så jeg har altså bare lavet et tekstfelt.
<html>
<head>
<title>Filoversigt</title>
</head>
<body>
<%
'husk at rette til evt. ny default directory!
'skal slutte med /
if request.querystring("dir") = "" Then
dir = "filer/"
else
dir = Request.querystring("dir") & "/"
end if
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(server.mappath(dir))
Set objFiles = objFolder.Files
i = 0
%>
<!-- ************************ filoversigt *************************** -->
<h3>Filer i folderen <%=dir%>:</h3>
<br>
Her er lige en fuld filoversigt, så vi kan holde øje med det hele :)
<br><br>
<%
antalFiler = 0
For Each Image In objFiles
antalFiler = antalFiler + 1
response.Write Image.Name & " - "
sti = server.mappath(dir & image.name)
set f= objFS.GetFile(sti)
Response.Write("Filen er oprettet: ")
Response.Write(f.DateCreated)
response.Write "<br><br>"
set f=nothing
Next
response.Write "Der er i alt " & antalFiler & " filer<br><br>"
response.Write "<br><br><hr><br><br>"
'denne funktion er en omskrevet version af dark-mixers oprindelige funktion
'fra ekspertens spg 325656 (
http://www.eksperten.dk/spm/325656 )
Function ShellSort(vArray)
Dim TempVal
Dim TempFil
Dim i, GapSize, CurPos
Dim FirstRow, LastRow, NumRows
FirstRow = LBound(vArray)
LastRow = UBound(vArray)
NumRows = LastRow - FirstRow + 1
Do
GapSize = GapSize * 3 + 1
Loop Until GapSize > NumRows
Do
GapSize = GapSize \ 3
For i = (GapSize + FirstRow) To LastRow
CurPos = i
TempVal = vArray(i)
TempFil = arrFiler(i)
Do While CompareResult(CDbl(vArray(CurPos - GapSize)),CDbl(TempVal))
vArray(CurPos) = vArray(CurPos - GapSize)
arrFiler(CurPos) = arrFiler(CurPos - GapSize)
CurPos = CurPos - GapSize
If (CurPos - GapSize) < FirstRow Then Exit Do
Loop
vArray(CurPos) = TempVal
arrFiler(CurPos) = TempFil
Next
Loop Until GapSize = 1
End Function
Function CompareResult(Value1, Value2)
CompareResult = (Value1 < Value2)
End Function
i = 0
Dim arrDato()
redim arrDato(antalFiler)
Dim arrFiler()
redim arrFiler(antalFiler)
For Each Image In objFiles
sti = server.mappath(dir & image.name)
set f= objFS.GetFile(sti)
arrDato(i) = f.DateCreated
arrFiler(i) = image.name
i = i + 1
set f = Nothing
Next
ShellSort arrDato
a = CInt(request.form("antal"))
if antalFiler < a Then
a = antalFiler
end if
For I = 0 to a - 1
Response.Write arrFiler(i) & " - Filen er oprettet " & arrDato(i) & "<br>"
Next
%>
<form method="post">
Hvor mange filer vil du se?
<br>
<input type="text" name="antal">
<input type="submit" value="Opdater visning">
</form>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
