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

我得到了一些asp代码来列出文件夹的内容（仅txt文件）。我想知道是否有办法只列出最近创建的10个文件

我的应用程序将使用AAMMDD.txt作为名称，每天创建一个文件

我想能够列出只有最后10个文件

这里有没有人可以分享一些例子

先谢谢你

下面是我找到的列出所有内容的代码（我已经对脚本做了一些更改）：

ul.dropdownPC，ul.dropdownPC li，ul.dropdownPC ul
{
列表样式：无；
利润率：8px；
浮动：左；
垂直对齐：中间对齐；
填充：0px；
边框：实心；
边框宽度：0px；
边框颜色：#ccc；
背景色：#fff；
}
李博士
{
填充物：5px；
边框宽度：0px；
}



`

将文件名和创建日期放入记录集中，对其进行排序，并获得前十条记录




`

将文件名和创建日期放入记录集中，对其进行排序，并获得前十条记录




`

<%
Const ImageFilePath = "logs"

Dim objFSO
Dim objFolder
Dim objFile

Dim strFileName
Dim strFileExtension

Dim blnShowFiles

If Request.QueryString("ShowFiles") = "" Then
    blnShowFiles = True
Else
    blnShowFiles = CBool(Request.QueryString("ShowFiles"))
End If


    Set objFSO = Nothing
%>

<style>

ul.dropdownPC, ul.dropdownPC li, ul.dropdownPC ul 
            {
    list-style: none;
    margin: 8px;
    float: left;
    vertical-align: middle;
    padding:0px;
    border:solid;
    border-width:0px;
    border-color:#ccc;
    background-color: #fff;
}
ul.dropdownPC li 
            {
    padding:5px;
    border-width:0px;
}
</style>

<ul class="dropdownPC dropdown-horizontal">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))

For Each objFile In objFolder.Files
    strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))

    If strFileExtension = "txt" Then
        %>
        <li><a href="<%= ImageFilePath & "/" & objFile.Name %>" target=_blank><img width="80" height="80" border="0" src="images/texticon01.png"><br><center><%= objFile.Name %></center></a>
        <%
        If blnShowFiles Then
            %>
            <!-- <%= objFile.Name %> --></li>
            <%
        Else
            %>
            <!-- <a href="<%=ImageFilePath & "/" & objFile.Name %>">View `Logs</a> --></li>`
            <%
        End If
        %>

        <%
    End If
Next ' objFile

Set objFolder = Nothing
Set objFSO = Nothing
%>