FSO og sotering

Mht til filer som skal listes i alfabetisk række fælge i en folder så tag et kig på denne kode som giver den mulighed, Filesystemobject giver ikke direkte en mulighed for at sortere filerne, derfor viker koden lidt stor, men der er bare lagt en sortering routine ind...:


http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118

øv den soter på samme måde :ø(

Jeg antager du tænker på:

1
10
11
12
13
14
2
3
4


Det er i den til?? Det er fordi den kigger  på filnavnet som tekst og ikke tal. Så skal du prøve at ændre på sorteringen så den er specifik til det formål så den konvertere filnavnet uden (.jpg) til tal og sortere efter det.

jeg har fået det til at virke.
det er lidt svært at forklare hvordan så her er scriptet:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/javascript" language="JavaScript"><!--
function PopUp(url) {
window.open(url,"MyPopup",'height=,width=');
} //-->
</script>
<link href="../../css/style.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%
'Sender info tilbage til top så den ved hvilken uge vi ser START
if request("uge1") then
%>
<script language="javascript">
parent.toppen.location.href="../../main/top.asp?uge1=<%=request("uge1")%>"
</script>
<%
end if
'Sender info tilbage til top så den ved hvilken uge vi ser SLUT
%>

<center>
<!--#include file="../../include/funktion.asp" -->
<%
Function ShowImageForType(strName)
    Dim strTemp

    strTemp = strName

    If strTemp <> "dir" Then
        strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
    End If
   
    Select Case strTemp
        Case "asp"
            strTemp = "asp"
        Case "dir"
            strTemp = "dir"
        Case "htm", "html"
            strTemp = "htm"
        Case "gif", "jpg"
            strTemp = "img"
        Case "txt"
            strTemp = "txt"
        Case Else
            strTemp = "misc"
    End Select

    strTemp = "<IMG SRC=""./mediebank" & strTemp & ".gif"" WIDTH=16 HEIGHT=16 BORDER=0>"

    ShowImageForType = strTemp
End Function
%>


<%
'====== TÆLLE BILLEDER OG SOTER START ======
set myrc = createobject("adodb.recordset")

myrc.fields.append "Dato",7
myrc.fields.append "Name",202,20
myrc.open
'====== TÆLLE BILLEDER OG SOTER SLUT ======

strPath = "./"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'====== TÆLLE BILLEDER OG SOTER START ======
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
For Each objItem In objFolder.Files
If Right(lcase(objItem.name),4) = ".jpg" Then
    myrc.addnew
    myrc.fields("Dato").value = FormatDateTime(objItem.DateLastModified)
    myrc.fields("Name").value = objItem.name
    myrc.update
    end if
next
myrc.sort = "Dato DESC"
'====== TÆLLE BILLEDER OG SOTER SLUT ======

Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

%>

<%
For Each objItem In objFolder.SubFolders
If InStr(1, objItem, "_vti", 1) = 0 Then
%>
<%= ShowImageForType("dir") %>&nbsp;<A HREF="<%= strPath & objItem.Name %>"><%= objItem.Name %></A>
<%
End If
Next

'====== PAGING DEL START ======
Set objFiles = objFolder.Files
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = sidecount 'Antal filer på hver side
intImgCount = myrc.recordcount 'Min egen array som bruges til at tælle filer som ender på .jpg i dir
intPageCount = -Int(-(intImgCount/intPageSize))
'====== PAGING DEL SLUT ======
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top">
<%
'====== PAGING DEL START ======
strScriptName = Request.Servervariables("ScriptName")
Response.Write ""
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?billedet=" & i & ".jpg&page=" & i & "&xstien="&request("xstien")&"><img src='../../pict/" & i & ".gif' border='0'></a> "   
Next
Response.Write ""
'====== PAGING DEL SLUT ======
%>
</td>
  </tr>
</table>
<%
'====== SÆTTE TABELLEN OP START =====
counter = tabelcounter
response.write "<table border=0><tr>"
'====== SÆTTE TABELLEN OP SLUT =====

For Each objItem In objFolder.Files
If Right(lcase(objItem.name),4) = ".jpg" Then
 
'====== PAGING DEL START ====== 
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
'====== PAGING DEL SLUT ======
%>

    <td>
        <A HREF="java script:PopUp('../../include/vis-stor.asp?path=<%=request("xstien")%>/<%= request.querystring("billedet") %>')"><img src="../../include/resize-showpic.asp?path=<%=request("xstien")%>/<%
        if request("billedet")="" then
        billedet1="1.jpg"
        else
        billedet1= request.querystring("billedet")
        end if
        response.write billedet1
        'objItem.Name %>" border="0"></A>
        </td>
   
<%
'====== PAGING DEL START ======
end if
'====== PAGING DEL SLUT ======

'====== SÆTTE TABELLEN OP START =====
counter = counter + 1
        if( counter = tabelcounter ) then
          counter = 1
            response.write "</tr><tr>"
        end if
       
End if
Next
'====== SÆTTE TABELLEN OP SLUT =====

for i = counter to tabelcounter
          response.write "<td>&nbsp;</td>"
        next
        response.write "</tr></table>"
       
'====== PAGING DEL START ======
Response.Write "<span class='fed'>Side</span> <span class='rodfed'>" & intPage & "</span><span class='fed'> af </span><span class='rodfed'>" & intPageCount & "</span>"
'====== PAGING DEL SLUT ======
%>       
      <br><br>
  <span class="fed">Udsalgs Avis for uge</span> <span class="rodfed"><%=DatePart("ww", date())%></span>
  <%       
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>

</center>

</body>
</html>

det er rodet men det virker *lol*