[ASP] FSO Sort probleem

[Denga]

Ik heb onderstaande code, deze haalt uit een map de mapnamen en geeft deze weer. Nu is het zo dat ik deze namen graag gesorteerd heb op Folder.DateCreated ...
Nu heb ik het dus zo opgelost, maar dit functioneerd op een of andere manier niet...

code:

<%
    pics = "blaat.asp" 
    ShowSub = request("ShowSub")
    ShowPic = request("ShowPic")
    strPathInfo = Request.ServerVariables("PATH_INFO")
    strPhysicalPath = Server.MapPath(strPathInfo)
    strPath = "./fotomap/"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
    Set objFolderContents = objFolder.Files
                                
    For each Folder in objFolder.SubFolders
                
    if Left(Folder.Name,1)<>"_" then
        Response.write "<a href="
        if ShowSub=Folder.Name then
            Response.Write ""
        end if
        Response.Write""& pics & "?ShowSub="
        Response.Write(Replace(Folder.Name, " ", "%20"))
        response.write ">"
        Response.Write(Folder.Name & "</a><br>")
    end if
                              
    next
                              
    Sort = "Folder.DateCreated ASC "
                                                                                                                  
    Set objFSO = nothing
    Set objFolder = nothing
    Set objFolderContents = nothing
%>

[gorgi_19]

Inderdaad; je creert een variabele met de waarde: "Folder.DateCreated ASC "

Zie
http://www.roubaixinterac.../Sort_Folder_Contents.asp

[Denga]

Maar als ik doe:

code:

<%
    pics = "blaat.asp" 
    ShowSub = request("ShowSub")
    ShowPic = request("ShowPic")
    strPathInfo = Request.ServerVariables("PATH_INFO")
    strPhysicalPath = Server.MapPath(strPathInfo)
    strPath = "./fotomap/"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
    Set objFolderContents = objFolder.Files
                                
    For each Folder in objFolder.SubFolders
                
    if Left(Folder.Name,1)<>"_" then

    rsFSO("Datum") = Folder.DateCreated

         Response.write "<a href="
         if ShowSub=Folder.Name then
             Response.Write ""
         end if
         Response.Write""& pics & "?ShowSub="
         Response.Write(Replace(Folder.Name, " ", "%20"))
         response.write ">"
         Response.Write(Folder.Name & "</a><br>")
    end if
                              
    next
                              
    Sort = "Datum ASC "
                                                                                                                        
    Set objFSO = nothing
    Set objFolder = nothing
    Set objFolderContents = nothing
%>

Dan geeft ie de foutmelding:

code:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: '[undefined]' 

/blaat.asp, line 94

Heb wel in de code ergens Dim rsFSO staan hoor...

[gorgi_19]

En wat is regel 94?

En ik had het over:

ASP:

Sort = "Datum ASC "

Wat an sich een beetje sutteloos staat te zijn

Maar heb je die link al bekeken hoe je kan sorteren?

[ Voor 18% gewijzigd door gorgi_19 op 06-03-2005 22:49 ]

[Denga]

Nu begrijp ik er helemaal niks meer van...

Ja ik heb wel naar die link gekeken maar die maakt gebruik van een recordset en dat doe ik niet...

en wat betreft de foutmelding, die slaat op: rsFSO("Datum") = Folder.DateCreated

Maar ik begrijp nog steeds niet hoe en wat, zou je eens wat duidelijker willen zijn Gorgi?

[gorgi_19]

En waar declaleer je dan de array rsFSO?

En als je geen recordsets gebruikt, dan gebruik je een hele vreemde naming convention. En waarom wil je geen gebruik maken van een recordset? Wil je dan een eigen Quicksort implementatie maken?

Denga schreef op maandag 07 maart 2005 @ 01:56:
Maar ik begrijp nog steeds niet hoe en wat, zou je eens wat duidelijker willen zijn Gorgi?

Je hebt een compleet uitgewerkt voorbeeld, inclusief documentatie, in die link staan Duidelijker kan en ga ik niet zijn

[ Voor 41% gewijzigd door gorgi_19 op 07-03-2005 02:03 ]

[Denga]

Nou het probleem is dat als ik een test asp pagina maak aan de hand van de link die je me gegeven hebt geeft ie een foutmelding op de regel met:

code:

With rsFSO.Fields
    .Append "Name", adVarChar, 200
    .Append "Type", adVarChar, 200
    .Append "DateCreated", adDate
    .Append "DateLastAccessed", adDate
    .Append "DateLastModified", adDate
    .Append "Size", adInteger
    .Append "TotalFileCount", adInteger
  End With

En dan geeft ie de foutmelding op de 1e regel met with rsFSO.Fields met een 'Expected Statement'

[gorgi_19]

Hoe heb je rsFSO gedeclareerd?

[Denga]

ik heb 'm letterlijk gecopy pasted, dus op die link van je staat bovenaan de rs al gedeclareerd als zijnde:

code:

Dim rsFSO, objFSO, objFolder, File

[gorgi_19]

Toevallig ook

ASP:

'create an ADODB.Recordset and call it rsFSO
  Set rsFSO = Server.CreateObject("ADODB.Recordset")

meegenomen? En alle functies en if-statements netjes afgesloten?

[ Voor 16% gewijzigd door gorgi_19 op 07-03-2005 02:49 ]

[Denga]

Alles klopt mijns inziens...

code:

<%
    Function kc_fsoFiles(theFolder, Exclude)
    
    Dim rsFSO, objFSO, objFolder, File
  Const adInteger = 3
  Const adDate = 7
  Const adVarChar = 200
  
  
  Set rsFSO = Server.CreateObject("ADODB.Recordset")
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(theFolder)
  
  Set objFSO = Nothing
  
  With rsFSO.Fields
    .Append "Name", adVarChar, 200
    .Append "Type", adVarChar, 200
    .Append "DateCreated", adDate
    .Append "DateLastAccessed", adDate
    .Append "DateLastModified", adDate
    .Append "Size", adInteger
    .Append "TotalFileCount", adInteger
  End With
  rsFSO.Open()
    
  For Each File In objFolder.Files
    If (Left(File.Name, 1)) <> Exclude Then 
      rsFSO.AddNew
      rsFSO("Name") = File.Name
      rsFSO("Type") = File.Type
      rsFSO("DateCreated") = File.DateCreated
      rsFSO("DateLastAccessed") = File.DateLastAccessed
      rsFSO("DateLastModified") = File.DateLastModified
      rsFSO("Size") = File.Size
      rsFSO.Update
    End If
  Next
    
  rsFSO.Sort = "Type DESC "

  Set objFolder = Nothing

  rsFSO.MoveFirst()
  Set kc_fsoFiles = rsFSO
    
    End Function
    
    Dim strFolder : strFolder = Server.MapPath("./rde")
    
    Dim rsFSO 
    
    Set rsFSO = kc_fsoFiles(strFolder, "_")
        While Not rsFSO.EOF
%>
    <p><%= rsFSO("Name").Value %> | <%= rsFSO("Type").Value %></p>
<%
  
        rsFso.MoveNext()
    Wend
  
  rsFSO.close()
  Set rsFSO = Nothing
%>

en de foutmelding is:

code:

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/testfso.asp, line 16 

With rsFSO.Fields

[Denga]

niemand?