--- title: "FSO-Script?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12827-fso-script" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "DKZ" published: "2001-08-24T11:52:00.000Z" updated: "2001-11-26T09:28:00.000Z" replies: 4 views: 288 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12827-fso-script" --- # FSO-Script? ## #1 — DKZ, 2001-08-24T11:52Z Någon som har ett färdigt script som listar samtliga filer/datum i en mapp på webbservern sorterat efter datum + skapar länkar till filerna? Eller tips på länkar till ett script. :) Permalänk: https://www.webforum.nu/p/12827 ## #2 — DKZ, 2001-08-24T12:18Z Hittade detta script på aspin, men det sorteras efter filnamn hur ska jag skriva så att listan sorteras efter datum? senaste överst på sidan??? \<% @LCID = 1053 %\> \ \ \Untitled\ \ \ \<% ' Just wrap your existing page around this code. ' put in the folder name below relative to the directory that this script is in ' DO NOT put leading or trailing slashes though. ' DO NOT use backslashes at all regardless of the server your on. folder = "" ' The table shows the filename as a link, the date last modified and the file size ' Adjust the table and columns as needed. Delete columns if you don't need them ' Find out what type of server we are on and the server data If Left(server.mappath("."),1) = "/" Then strslash = "/" Else strslash = "\\" End If servername = Request.Servervariables("server_name") scriptpath = Request.Servervariables("script_name") scriptpath = Mid(scriptpath,(Instrrev(scriptpath, "/")),1) Dim filesobj, fileslist, fname, posnumright dim f, dflm Set filesobj = Server.CreateObject("scripting.filesystemobject") Set fileslist = filesobj.GetFolder(server.mappath(".") & "/" & folder) %\> \