Avatar billede hyggesen Nybegynder
07. august 2004 - 08:56 Der er 3 kommentarer og
2 løsninger

FileSystemObject sortering

Jeg vil gerne kunne sortere visningen af filerne som jeg finder frem med GetFolder (Filnavn,Filtype,Storrelse,Sidstaendret).
Jeg har hørt man kan sætte det hele ind i et recordset og sortere det på den måde, men jeg kan ikke helt funde ud af hvordan !

Jeg har forsøgt mig frem med det her :
(Ved godt dermangler en masse, men jeg ved ikke hvordan det skulle virke)

<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(wwwpath)
Set RS = Server.CreateObject("ADODB.Recordset")

for each fil in fo.files
If NOT Fil.Name = "Thumbs.db" Then%>

<%
Response.Write(Fil.Name & "<BR>")
varfields=Array("Filnavn","Filtype","Storrelse","Sidstaendret")
varvalues=Array(Fil.Name, Fil.Type, Fil.Size/100, Fil.DateLastModified)
rs.AddNew varfields,varvalues
%>


<%=RS.Fields("Filnavn")%>

<%
End If
next
set fo=nothing
set fs=nothing%>

Nogen der kan hjælpe mig ?
Avatar billede hyggesen Nybegynder
07. august 2004 - 09:01 #1
Jeg ville gerne kunne gøre det uden at den var afhængig af en DB.
Avatar billede eagleeye Praktikant
07. august 2004 - 16:04 #2
Prøv sådan her:

<%
subPath = "test"
Path = Server.MapPath("/"&subPath)

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(Path)
Set RS = Server.CreateObject("ADODB.Recordset")

RS.Fields.Append "Filnavn", adVarChar, 20
RS.Fields.Append "Filtype", adVarChar, 20
RS.Fields.Append "Storrelse", adInteger, 6
RS.Fields.Append "Sidstaendret", adDate, 9
RS.Open

For Each file in objFolder.Files
  If NOT Fil.Name = "Thumbs.db" Then
    RS.Addnew
    RS("Filnavn") = file.Name
    RS("Filtype") = file.Type
    RS("Storrelse") = file.Size
    RS("Sidstaendret") = file.DateLastModified
    RS.Update
  end if 
Next
' Sorter filerne, efter: navn, dato, størrelse
RS.Sort = "Filnavn ASC, Sidstaendret, Storrelse"
' Udskriv filerne
RS.MoveFirst
while Not RS.EOF
  Response.Write RS("filnavn") & "<br>"
  RS.MoveNext
wend

RS.Close
Set RS =nothing
Set FSO =nothing
%>
Avatar billede hansdam Nybegynder
07. august 2004 - 16:38 #3
Dav hyggesen... Her er en hvor du ikke skal bruge databasen...
http://hdhp.dk/exp/GetFolder_sortering/

Koden til filen kan du se her:
http://hdhp.dk/exp/GetFolder_sortering/ShowSource.asp?Fil=Default.asp

/Hans
Avatar billede hansdam Nybegynder
07. august 2004 - 18:37 #4
Har lige lavet det så dato sorteringen også virker:
http://hdhp.dk/exp/GetFolder_sortering/default2.asp

Koden til filen kan du se her:
http://hdhp.dk/exp/GetFolder_sortering/ShowSource.asp?Fil=Default2.asp

/Hans
Avatar billede hyggesen Nybegynder
07. august 2004 - 21:02 #5
Takker begge to, skal lige finde ud af hvilken løsning jeg bruger...!
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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