Movable Type のサイドメニューでサブカテゴリーリストの折りたたみを実装したい場合は、「小粋空間」さんのページに詳しく記述されています。

同じく ｄTree を使用したサブカテゴリーリストの作成方法も記述されています。

d = new dTree('d');
以下のエントリを記述するのですが、サーバの特定のフォルダー以下を取得して、動的に表示させるaspのサンプル

メモ
d.add("DTree管理番号", "親の管理番号", "表示名", "リンク先", "タイトル", "リンク先のターゲット名", "通常時に表示するアイコン画像のパス", "階層展開時に表示するアイコン画像のパス", "階層を展開するか否かのフラグ");

再帰法で指定のフォルダ以下を fol_tbl に配列格納

<% t_path = "C:\Inetpub\wwwroot" dim fol_tbl redim fol_tbl(10000,400) ' 10,000フォルダー200階層まで max_i=0 Set fs = Server.CreateObject("Scripting.FileSystemObject") Set path = fs.GetFolder(t_path) k=0 Call search_folder(path) Private Sub search_folder(ByVal opath) j=0 For Each s_fol In opath.SubFolders k=k+1 ss_fol = replace(s_fol,t_path," ") sss_fol = split(ss_fol,"\") s_cnt = Ubound(sss_fol) for i=0 to s_cnt if i = s_cnt then fol_tbl(k,i) = sss_fol(i) if (i>max_i) then max_i = i end if end if next j=j+1 Call search_folder(s_fol) Next End Sub %> 格納後のテーブルを展開して js を作成。。。