ディレクトリ階層をツリー表示する EmEditor のマクロ

/*
 * 指定されたディレクトリ以下の階層をツリー表示します。
 */
var dirPath = prompt("input directory path", "");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var dirMark = " <dir>";
if (fso.folderExists(dirPath)) {
    editor.newFile();
    var newDoc = editor.documents.item(editor.documents.count);
    var dir = fso.getFolder(dirPath);
    newDoc.writeln(dir.name + dirMark);
    function writeSubTree(dir, branchParts) {
        var counter = 0;
        for (var de = new Enumerator(dir.subFolders); !de.atEnd(); de.moveNext()) {
            if (counter == dir.subFolders.count - 1) {
                if (dir.files.count > 0) {
                    newDoc.writeln(branchParts + "├" + de.item().name + dirMark);
                    writeSubTree(de.item(), branchParts + "│");
                } else {
                    newDoc.writeln(branchParts + "└" + de.item().name + dirMark);
                    writeSubTree(de.item(), branchParts + "　");
                }
            } else {
                newDoc.writeln(branchParts + "├" + de.item().name + dirMark);
                writeSubTree(de.item(), branchParts + "│");
            }
            counter++;
        }
        counter = 0;
        for (var fe = new Enumerator(dir.files); !fe.atEnd(); fe.moveNext()) {
            if (counter == dir.files.count - 1) {
                newDoc.writeln(branchParts + "└" + fe.item().name);
            } else {
                newDoc.writeln(branchParts + "├" + fe.item().name);
            }
            counter++;
        }
    }
    writeSubTree(dir, "");
} else {
    if (dirPath.length > 0) {
        alert("<" + dirPath + "> is not found");
    }
}

簡単な配置構成のドキュメントを書くときに使えるかもしれない。

投稿日時 : 2008年2月16日 20:55

# re: ディレクトリ階層をツリー表示する EmEditor のマクロ 2008/02/17 12:58 DELI

単純にディレクトリ構成を出すだけなら、dosの時代からtreeコマンドがあります。
それじゃダメなのかしら。

[余談]
UNIXだとなかったと思う。
と考えながら今試したら、Linuxにはパッケージがあった。
BSDでもあった。
・・・・いつ追加されたんだろう？？知らなかった。

# re: ディレクトリ階層をツリー表示する EmEditor のマクロ 2008/02/17 15:59 THREE-ONE

> tree コマンド
知らなんだ・・・・orz
ま、まあ、いつも使っている書式で出力したかったので(^-^;;)

Post Feedback

タイトル
名前
Url:
コメント:
名前をブラウザに記憶する

ぽざうねっと

ニュース

書庫

日記カテゴリ

Accessory

Community

Private

コメント

Post Feedback