<% strPath = Server.MapPath(".") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPath) set f = Server.CreateObject("Scripting.Dictionary") For Each objFile In objFolder.Files f.add objFile.Name,1 Next
a = f.keys() for i=ubound(a)-1 to lbound(a) step -1 for j=0 to i if a(j)>a(j+1) then tmp=a(j):a(j)=a(j+1):a(j+1)=tmp next next for i=lbound(a) to ubound(a) response.write a(i) & "<br>" next
Det nederste er en bubblesort - ikke specielt effektiv, men du har nok heller ikke så mange navne i dit katalog. Scripting.Dictionary er for at slippe for at håndtere de håbløse arrays i VB.
Synes godt om
Ny brugerNybegynder
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.