Avatar billede rasmus_h Nybegynder
06. juli 2008 - 02:46 Der er 8 kommentarer og
1 løsning

Sortere mapper efter last modified

Hej

Jeg har et script der automatisk henter og lister alle undermapper på min side. Nu vil jeg så gerne have den til at sortere mappevisningen efter "last modified date" eller "last created date" så den seneste ændre mappe bliver vist først i listen.

Kan nogle hjælpe med det?

index.asp:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html dir="ltr" xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta http-equiv="Content-Language" content="da" />
<title>PaPdyr's billed galleri</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="index.css" />
</head>

<body id="body">

<div id="masthead">
    <div id="top_left">
    </div>
    <div id="header">
    </div>
</div>
<div id="container">
    <div id="left_col">
    </div>
    <div id="page_content">
        <span class="style2">
        <br />
        <br />
        <strong><span class="heading">Galleri 2008</span></strong><br />
        <br />


        <br />
<br />
<table style="width: 100%">
<%
' Rod mappe defineres
    folderspec = server.mappath(".")

' FSO oprettes med visning af undermapper
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fold = fso.GetFolder(folderspec)
    for each subfolder in fold.subFolders
   
' INDLÆSNING AF ALBUM NAVN

Dim xmlDoc
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")

xmlDoc.load(Server.Mappath(subfolder.Name & "/ext/xml/albuminfo.xml"))

' Hent titel navn
albumtitel = xmlDoc.documentElement.childNodes(0).attributes.getNamedItem("title").nodeValue

   
' Billede hentes fra galleri
    Set FSO3 = CreateObject("Scripting.FileSystemObject")
    Set Folder3 = FSO3.GetFolder(Server.Mappath(subfolder.Name & "/small"))
        For Each File In Folder3.Files
                strBillede = "<img src=" & subfolder.Name & "/small/" & File.Name & " width='65' height='65' border='0'>"
                Exit For
        Next
   
' Link skrives til klienten i tabel
%>
            <tr>
                <td style="width: 85px"><% response.write strBillede %></td>
                <td valign="middle"><%response.write "<a href=" & subfolder.Name & ">" & albumtitel & "</a>"%></td>
            </tr>

<%
' Alle forbindelser lukkes
    set FSO3 = nothing
    set Folder3 = nothing
    set albumtitel = nothing
    set xmlDoc = nothing
       
' Næste billed galleri bearbejdes og sidste variabler lukkes
    next
    set fold = nothing
    set fso = nothing
%></span>        
</table>
<span class="style2">
        <br />
        </span>
    </div>
</div>
<div id="footer" class="style1" style="width: 75%">
    </div>

</body>

</html>

Hvis nogle har forslag til andre optimeringen i koden, er jeg lutter øren :)

Venlig Hilsen
Rasmus Hansen
Avatar billede hundevennen Nybegynder
06. juli 2008 - 19:07 #1
prøv at kigge her - har selv haft samme problem - FSO kan ikke normalt sortere men ved hjælp af det der er beskrevet her fik jeg det til at du

http://www.roubaixinteractive.com/PlayGround/FSO/Sort_Folder_Contents.asp
09. juli 2008 - 10:22 #2
Avatar billede guidmaster Nybegynder
09. juli 2008 - 14:43 #3
Avatar billede rasmus_h Nybegynder
09. juli 2008 - 15:13 #4
Tak for jeres tid begge to. Desværre er jeg helt blank for hvad jeg nu skal gøre som næste skridt, for at benytte jeres forslag, hhv C# og VB. Kan jeg få et hint?

Vh
Rasmus
10. juli 2008 - 08:33 #5
Hej Rasmus.

Du skal downloade Visual Web Developer 2008 fra microsoft.com/express/download

Åben enten VB eller C# udgaven af koden i værktøjet og afprøv det :-)
Avatar billede hundevennen Nybegynder
10. juli 2008 - 09:52 #6
:-)
Avatar billede rasmus_h Nybegynder
10. juli 2009 - 04:43 #7
Tak for jeres hjælp. Projektet blev desværre lagt på hylden pga flytning og jeg er ikke rigtig kommet tilbage til det endnu. Jeg vil afprøve jeres forslag så snart det bliver aktuelt!

Vil I lægge et svar så vi kan få lukket? :)
Avatar billede rasmus_h Nybegynder
02. august 2010 - 06:11 #8
Ingen svar, lukker selv. Sig til hvis I fortryder og vil have jeres point.
Avatar billede rasmus_h Nybegynder
02. august 2010 - 06:12 #9
Ingen svar, lukker selv. Sig til hvis I fortryder og vil have jeres point.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester