Also ich hab das seinerseits folgenderma�en gel�st. Ist vieleicht nicht
sonderlich elegant, funktioniert aber prima
function bubblesort(arrSortieren)
for i = 0 to ubound(arrSortieren)
for j = i + 1 to ubound(arrSortieren)
if UCase(arrSortieren(i)) > (UCase(arrSortieren(j))) then
arrTemp = arrSortieren(i)
arrSortieren(i) = arrSortieren(j)
arrSortieren(j) = arrTemp
end if
next
next
bubblesort = arrSortieren
end function
Set objFileFolder = Server.CreateObject("Scripting.FileSystemObject")
Set curFolder = objFileFolder.GetFolder(Server.MapPath(FolderToShow))
myFolder = FolderToShow
arrSize = curFolder.SubFolders.Count
Dim arrCompetitor()
Dim arrCompetitorSort
i = 0
for each file in curFolder.SubFolders
Redim Preserve arrCompetitor(i+1)
arrCompetitor(i) = file.name
i = i + 1
next
arrCompetitorSort = bubblesort(arrCompetitor)
Timo
Friedemann Enderlein wrote:
>Hallo,
>
>ich bin auf der Suche nach einer M�glichkeit, eine Folder Collection zu
>sortieren.
>Das bilden der Collection mittels FileSystemObject funktioniert reibungslos,
>nur leider liefert er keine sortierte Liste. Da ich die Ordner allerdings
>alphatisch sortiert darstellen muss, stehe ich vor einem Problem.
>Hat einer die Idee zur Sortierung dieser Kollektion nach bestimmten
>Kriterien (eben zB. alphabetisch)??
>
>Bin f�r jede Hilfe dankbar.
>
>Danke im voraus.
>
>Friedemann Enderlein
>
>
>| [aspgerman] als [EMAIL PROTECTED] subscribed
>| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
>| Sie k�nnen sich unter folgender URL an- und abmelden:
>| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
>
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
