Order by i FileSystemObject

jeg må indrømme at jeg ikke fatter hvordan det ikke kan lade sig gøre med getFolder... jeg har her vedlagt en del af det script jeg bruger for at hente mapper, det viser bare de mapper der nu engang er... det sortere(automatisk, for det er det eneste det gør) på navnet, dog kun i stigende... men da det er et array kan man jo bare traversere baglæns hvis det er det man ønsker...

kode:

<%

'Den sti vi søger i, sørg for at
'IUSR_servernavn har læserettigheder
dim AppPath
AppPath = Request.ServerVariables("APPL_PHYSICAL_PATH")

function ReturnFolderList(fParentFolder)
	set Filesys = CreateObject("Scripting.FileSystemObject")
	if not FileSys.FolderExists(AppPath & fParentFolder) then
		ReturnFolderList = -1
	else
		set SystemFolder = FileSys.GetFolder(AppPath & fParentFolder)
		set FolderList = SystemFolder.SubFolders
		for each fol in FolderList
			fs = fs & fol.name & ","
		next
		ReturnFolderList = Split(fs, ",")
	end if
end function
 
a = ReturnFolderList("")
 
 'Lidt sikkerhed eftersom ReturnFolderList
 'også kan være 1 så
 'kontrollerer vi lige om det er
 'et array vi har fået tilbage
 
 if IsArray(a) then
 
	for i = LBound(a) to UBound(a)
	 
		Response.Write(a(i))
		Response.Write("<br>")
	 
	next
 
end if
 
%>

Hej!

Jeg har lavet et script, der bruger FSO.GetFolder. Men kan man gøre sådan at alle de mapper man får via. getfolder bliver sat i rækkefølge efter navn?

man kan evt. dele output efter hver bogstav altså med split også lave sin egen funktion til at sortere outputet med...... brug evt. loop eller do while

det er nok en lang og besværlig metode men.... den virker....
(jeg vil ikke bruge tid på det)

Mvh. Jop...

Hmm, det gør den da allerede... altså stigende, således at a kommer før b... så skal det være omvendt? eller hvad ønsker du?

Casper

Hmm, det gør den da allerede... altså stigende, således at a kommer før b... så skal det være omvendt? eller hvad ønsker du?

Casper

nej, det gør det ikke

Hej!

Jeg har lavet et script, der bruger FSO.GetFolder. Men kan man gøre sådan at alle de mapper man får via. getfolder bliver sat i rækkefølge efter navn?

Kan man ikke bare bruge Order by lige som i database kald?
________________________________
www.ssjpride.dk

Hej!

Jeg har lavet et script, der bruger FSO.GetFolder. Men kan man gøre sådan at alle de mapper man får via. getfolder bliver sat i rækkefølge efter navn?

Kan man ikke bare bruge Order by lige som i database kald?

Nej, det virker heller ikke

________________________________
www.ssjpride.dk

Hmmm er der ikke en måde man kan komme det ind i en form for Stringlist.
Og så sætte det i Alfabetisk orden og sætte det ud på siden....?

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

jeg må indrømme at jeg ikke fatter hvordan det ikke kan lade sig gøre med getFolder... jeg har her vedlagt en del af det script jeg bruger for at hente mapper, det viser bare de mapper der nu engang er... det sortere(automatisk, for det er det eneste det gør) på navnet, dog kun i stigende... men da det er et array kan man jo bare traversere baglæns hvis det er det man ønsker...

kode:

Kode 

<%

'Den sti vi søger i, sørg for at
'IUSR_servernavn har læserettigheder
dim AppPath
AppPath = Request.ServerVariables("APPL_PHYSICAL_PATH")

function ReturnFolderList(fParentFolder)
	set Filesys = CreateObject("Scripting.FileSystemObject")
	if not FileSys.FolderExists(AppPath & fParentFolder) then
		ReturnFolderList = -1
	else
		set SystemFolder = FileSys.GetFolder(AppPath & fParentFolder)
		set FolderList = SystemFolder.SubFolders
		for each fol in FolderList
			fs = fs & fol.name & ","
		next
		ReturnFolderList = Split(fs, ",")
	end if
end function
 
a = ReturnFolderList("")
 
 'Lidt sikkerhed eftersom ReturnFolderList
 'også kan være 1 så
 'kontrollerer vi lige om det er
 'et array vi har fået tilbage
 
 if IsArray(a) then
 
	for i = LBound(a) to UBound(a)
	 
		Response.Write(a(i))
		Response.Write("")
	 
	next
 
end if
 
%>

Det virker ikke , den skal jo sortere alle mapperne efter navn...

hmm... det gør den altså her... kan du ikke lige sende et screenshot af det du får?