フォルダ一覧の並べ替え

フォルダ一覧をするコードです。下記はフォルダ名順に並んで表示されますが、これを逆順に並べ替えする方法についてアドバイスいただけないでしょうか。検索するもなかなか探せず。もしくはフォルダ作成日の新しい順でも可
です。

<%
Set fs = CreateObject("Scripting.FileSystemObject")
di = fs.GetParentFolderName(Request.ServerVariables("PATH_TRANSLATED"))
Set f = fs.GetFolder(di)
Set fc = f.SubFolders
For Each f1 In fc
Response.write f1.Name & "<BR>"
Next
%>

No.2 ベストアンサー 回答者： BlueRay 回答日時： 2003/08/05 12:59

逆順案だけ、アドバイスしますね。

如何でしょう。

・正順
dirs = dirs & f1.Name & "<BR>" & vbCrLf
・逆順
dirs = f1.Name & "<BR>" & vbCrLf & dirs

<%
Set fs = CreateObject("Scripting.FileSystemObject")
di = fs.GetParentFolderName(Server.MapPath("."))
Set f = fs.GetFolder(di)
Set fc = f.SubFolders
dirs = ""
For Each f1 In fc
dirs = f1.Name & "<BR>" & vbCrLf & dirs
Next
Response.write dirs
%>

この回答へのお礼

回答ありがとうございました。
こんなに簡単な方法があるとは・・。

＃でも、動作はするも、その意味がイマイチわからずの現状。 (^^;

お礼日時：2003/08/05 19:59

No.1 回答者： taka_tetsu 回答日時： 2003/08/05 11:05

こちらをどうぞ

http://www.okweb.ne.jp/kotaeru.php3?q=613145

参考URL：http://www.okweb.ne.jp/kotaeru.php3?q=613145

この回答へのお礼

回答ありがとうございました。

詳しい説明なので勉強になります。
早速試してみたいと思います。（未着手 (^^; ）

お礼日時：2003/08/05 20:00