如何使用 ASP 列出目录的 10 个最新文件

<%
Dim objFSO, objFolder, objFiles, objFile
Dim intCounter, strOutput

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("."))
Set objFiles = objFolder.Files

intCounter = 0
strOutput = ""

For Each objFile In objFiles
    If intCounter < 10 Then
        strOutput = strOutput & "<li>" & objFile.Name & " (" & objFile.DateLastModified & ")</li>"
        intCounter = intCounter + 1
    End If
Next

Response.Write("<ul>" & strOutput & "</ul>")
%>