Visa ett inlägg
Oläst 2005-02-22, 14:14 #2
Eddie Eddie är inte uppkopplad
Medlem
 
Reg.datum: Jan 2005
Inlägg: 83
Eddie Eddie är inte uppkopplad
Medlem
 
Reg.datum: Jan 2005
Inlägg: 83
Det första som hoppar upp i mitt huvud är att du loopar in alla filerna i mappen i ett recordset då är det inte så svårt att sortera.

Kod:
<%
Set rstFileRs = Server.CreateObject("ADODB.Recordset")
Set objFSO = Server.CreateObject("Scripting.Filesystemobject")
Set objFolder = objFSO.GetFolder("C:\filernasmapp")

with rstFileRs.Fields
	.Append "Namn", 200, 200
	.Append "Typ", 200, 200
	.Append "Skapad", 7
	.Append "Storlek", 3
End with
rstFileRs.Open
For each File in objFolder.Files
	rstFileRs.AddNew
	rstFileRs("Namn") = File.Name
	rstFileRs("Typ") = File.Type
	rstFileRs("Skapad") = File.DateCreated
	rstFileRs("Storlek") = File.Size
	rstFileRs.Update
Next

rstFileRs.Sort = "Skapad DESC, Namn ASC"
rstFileRs.MoveFirst
%>
Där har du ju det för att lägga in i recordsettet och sortera det, du kan ju lägga in länkar eller något och sortera m.h.a querystrings eller liknande.
Antar att du vet hur du skriver ut från recordsettet sen.

Koden är otestat men jag är ganska säker på att det funkar

//Eddie


Edit: Var en del fel men nu funkar det tror jag =)
Eddie är inte uppkopplad   Svara med citatSvara med citat