Avatar billede davidfossil Nybegynder
30. september 2002 - 09:04 Der er 4 kommentarer og
2 løsninger

2 spørgsmål til FSO

Jeg vil gerne sorterer SubFolders omvendt ... altså efter title descending ...

Og ved den anden løkke kunne jeg godt tænke mig at det KUN var .jpg filer der blev vist...

<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(galleryPATH)

for each objSubFolder in objFolder.SubFolders
    response.write("<tr><td nowrap>" & objSubFolder.Name & "</td></tr>")
next

for each objFile in objFolder.Files
    response.write("<tr><td nowrap>" & objFile.Name & "</td></tr>")
next
%>

Håber det kan lade sig gøre =)
Avatar billede bredum Nybegynder
30. september 2002 - 09:11 #1
prøv at kigge på www.html.dk
Avatar billede davidfossil Nybegynder
01. oktober 2002 - 06:41 #2
meget fed side ... fandt et par andre ting jeg kunne bruge, men ikke svar på disse spørgsmål ... andre forslag ?
Avatar billede shylle Nybegynder
01. oktober 2002 - 09:44 #3
Det kan godt lade sig gøre.

Jeg ville gøre det ved at lave et recordset, som du så bl.a. kan køre en sortering på.

Sådan laver du et recordset, der indeholder alle subfolders

----------------------
Dim RS
Set RS = Server.CreateObject("ADODB.RecordSet")
'Dim adVarChar, adDateTime
Const adVarChar = 200

RS.Fields.Append "SubFolderName", adVarChar, 255
RS.Open
----------------------

Nu bruger du så din løkke fra fso'en

----------------------
for each objSubFolder in objFolder.SubFolders
    RS.AddNew
    RS("SubFolderName") = objSubFolder.Name
    RS.Update
next
----------------------

Recordset'et er nu fyldt op, så nu hopper vi til starten af og laver en sortering

----------------------
    RS.MoveFirst
    RS.Sort = "SubFolderName DESC"
----------------------

Og nu kan du så køre gennem det nye recordset

----------------------
    While not RS.EOF
        Response.write RS("SubFolderName") & "<br>"
    RS.MoveNext
    Wend
    RS.Close
    Set RS = Nothing
----------------------

Samme procedure kan du bruge for filerne i hver subfolder og i denne løkke kan du så lave et check for om right(objFile.Name,3) = "jpg". Hvis dette ikke er sandt lægger du den ikke i recordset'et

Håber du kan bruge dette til noget...
Avatar billede davidfossil Nybegynder
01. oktober 2002 - 15:18 #4
wee det virker jo :)

dette recordset ... hvor længe eksisterer det? til jeg skriver close? hvis jeg ikke skriver close kan jeg så hente dataen fra et andet script senere?

man kunne ikke gemme det i et array or sortere dette ?
Avatar billede shylle Nybegynder
01. oktober 2002 - 15:25 #5
Hvis du ikke bruger RS.Close, kan du altid lave RS.MoveFirst og køre gennem det recordset'et igen.

Jeg tror egentlig nok, at man gøre det samme med et array, men dette har jeg aldrig benyttet mig af, da min opfattelse er, at man har flere muligheder med et recordset og personligt kan jeg bedre lide at håndtere et sådant.
Avatar billede davidfossil Nybegynder
01. oktober 2002 - 17:48 #6
nå men tak for hjælpen da :)

de lovede 60 point til shylle for svaret, og så 40 point til bredum for linket hvor jeg lige lærte et par andre tricks :D
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