Jag vill sortera filer i bokstavsordning. Hittade detta på pellesoft: Kan bero på att ditt recordset inte är i editeringsläge .... ännu ..... Kan vara så att du har en tidig version av ADO. Testa med att installera en senare version. Ajdå... är det så att det är en gammal ADO så är det kört för det är på ett webhotell (B-one). Tack för era svar....Sortera filer med FSO
http://www.pellesoft.nu/development/forum/view.asp?msgid=51821
Fick dock följande felmeddelande:
***************************
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'rsFolder.Fields.Append'
/bildarkiv/test.asp, line 7
****************************
Min kod:
<code>
strPath=application("fysiskAdress")&"images/bildarkiv/"&kat
Set rsFolder = CreateObject("ADODB.Recordset")
rsFolder.Fields.Append "Name", adVarChar, 255
rsFolder.Open
' Sortering
rsFolder.Sort = "Name"
Fields = Array("Name")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(strPath)
For Each File In Folder.Files
rsFolder.AddNeew Fields, Array(File.Name)
Next
rsFolder.MoveFirst
do while not rsFolder.EOF
filnamn=rsFolder("Name")%>
<%=replace(filnamn,"_"," ")%><br>
<%rsFolder.movenext
loop
rsFolder.Close
</code>Sv: Sortera filer med FSO
Jag har denna kod (strippad från allt ovidkommande) och som funkar för att lista filer från en mapp och sedan sortera dem.
Kika in de egenskaperna jag sätter INNAN jag lägger till fält.
<%
Option Explicit
Dim rstFiles ' As ADODB.Recordset
Dim objFSO ' As Scripting.FileSystemObject
Dim objFolder ' As Object
Dim File ' As Object
Const adVarChar = 200
Set rstFiles = Server.CreateObject("ADODB.Recordset")
rstFiles.CursorType = 3
rstFiles.LockType = 3
rstFiles.Fields.Append "Filename", adVarChar, 50
rstFiles.Open
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("/snitz/"))
For Each File IN objFolder.Files
rstFiles.AddNew
rstFiles.Fields(0).Value = File.Name
Next
rstFiles.UpdateBatch
rstFiles.Sort = "Filename ASC"
Set objFolder = Nothing
Set objFSO = Nothing
%>
<html>
<head>
<title>List Files</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
While Not rstFiles.EOF
Response.Write rstFiles(0).Value & "<br>"
rstFiles.MoveNext
Wend
%>
</body>
</html>
<%
rstFiles.Close
Set rstFiles = Nothing
%>
Hoppas att det blir som duv ill
cya,
PatrikBSv: Sortera filer med FSO
http://msdn.microsoft.com/downloads/list/dataaccess.aspSv: Sortera filer med FSO