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
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
guidmaster Nybegynder
09. juli 2008 - 14:43 #3
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 :-)
hundevennen Nybegynder
10. juli 2008 - 09:52 #6
:-)
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? :)
rasmus_h Nybegynder
02. august 2010 - 06:11 #8
Ingen svar, lukker selv. Sig til hvis I fortryder og vil have jeres point.
rasmus_h Nybegynder
02. august 2010 - 06:12 #9
Ingen svar, lukker selv. Sig til hvis I fortryder og vil have jeres point.
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

Opret Preview

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





Premium
Her er KMD's læringer fra corona-krisen: "Vi ser mange fordele poppe op"
Coronakrisen har vendt de traditionelle arbejdsrutiner på hovedet. Hos KMD er man allerede i gang med at høste erfaringerne for at danne fremtidens måde at arbejde på. It-selskabet går nu mod en mere fleksibel model, forklarer HR-direktør Michael Holst.
CIO
"Så kan det godt være, at der er noget teknologigæld bagefter, men lige nu kan vi gøre rigtigt meget - og vi kan gøre det hurtigt"
"Så kan det godt være, at der er noget teknologigæld bagefter, men lige nu kan vi gøre rigtigt meget - og vi kan gøre det hurtigt"
White paper
5 gode råd til det sikre og effektive projektarbejde - og selvom det sker hjemmefra
Hjemme- og fjernarbejde behøver ikke at koste på produktiviteten i dine projekter. I dette whitepaper kan du derfor læse fem gode råd til at få dine projekter sikkert i hus - også selvom hovedparten af arbejdet sker andre steder end på arbejdspladsen. De fem råd handler blandt andet om kommunikationen, holdånden, sikkerheden og opsamling af viden når du arbejder hjemmefra.