ぉぉぉおおおおお！
長らく音沙汰なかったので心配になってたけど、新しいの作ってたんだ！

これはめちゃ期待！

ちょっとうれしかったので、メモがてら記事に。

と、いろいろ変わるらしい。

外観とかスクリーンショットも公開されてます(*°∀°)=3
2009-02-06 – cresの日記

設定もレジストリからjsonになったり、キャッシュにsqliteが使われてたり、いろいろあるらしい。
使い勝手上がってるとうれしいなぁ(゜∀゜)

vistaへの対応は敬遠気味っぽいので、ちょい違和感あるのかも。
うちはメインXPだから全然いいけど。

ただvistaでのファイルリストの自動更新とかの頻度がおさまればいいなぁ・・・とか。
あとは、もちょっとこっちで拡張できると面白そうかな・・・とか。

何より期待は膨らむばかり。

4月ぐらいに何かあると良いと思います、とのことなのでしばらく目が離せなさそう（*´▽｀*）

関連情報：
MDIE(タブ型ファイラー)

関連記事：
[MDIEスクリプト] select2zip.jsを更新
[clipFolder.js] MDIEでクリップボードからサクッとフォルダを作成
選択フォルダの階層構造をテキストファイルに出力するMDIE用スクリプト

一度、書き直したのでスクリプト自体は別物になってますが（・∀・）
少し機能が増えました。

というか、1年近くたっちゃってるね・・・。

以下、使い方とか説明です。

使い方

基本的に使い方自体はいっしょだけど、とりあえず。
ソースコードはソースコードから。

1. 「select2zip.zip」をクリックしてダウンロード。
2. ダウンロードしたZIPファイルを解凍。
3. 解凍してできた「select2zip.v076.js」をMDIEのインストールフォルダにあるscriptフォルダ内に移動(任意のフォルダでもいい)
4. MDIEを起動してメニューの「ツール」 > 「拡張」 > 「スクリプトに追加」で「select2zip.v076.js」を追加
5. MDIEのメニューの「ツール」にある「キーボードショートカット」や「マウスジェスチャ」に任意で登録

設定について

解凍した「select2zip.v076.js」をテキストエディタ等で直接編集します。
コメント入れているので大丈夫だと思うけど、ちょっと補足。

まずは環境設定。

1. select2zip.v076.jsをテキストエディタで開いて、21行目以降を確認。

   /*
    * システム設定（7-zipの位置とか、ログファイルの場所を指定）
    * $system.exe        : 7zipプログラムのパス
    * $system.logfile    : ログファイルのパス(設定しない場合は、実行したディレクトリ内に自動作成)
    * $system.zipMode    : 圧縮タイプ(デフォルトはzip)
    * $system.skipExt    : 圧縮しないファイル拡張子（$option.skipZipがtrueの場合のみ有効）
    */
   $system.exe     = '';
   $system.logfile = '';
   $system.zipMode = 'zip';
   $system.skipExt = ['lzh','zip','cab','rar','7z','gz','bz2','tar'];
   

2. $system.exeだけは「7zipのパス」を確実に記述。
   ※ここさえ間違ってなければ、とりあえず動くはず。
3. ログファイルを固定ファイルにしたい場合は「$system.logfile」に任意のパスを記述。
4. 圧縮ファイルの種類を変更する場合は、$system.zipModeのzipを変更。
   サポートしている圧縮タイプは「zip」、「7z」、「tar」、「gzip」、「bzip」で任意のファイルタイプを記述すればいい。
   ※「gzip」、「bzip」は単体ファイルの圧縮しかサポートしてないので、非推奨。
5. $system.skipExtで圧縮したくないファイルの拡張子を記述。
   ※Array形式での記述（['拡張子１', '拡張子２']）

次にオプション設定。
（オプションは「true」か「false」のみで記述）

1. select2zip.v076.jsをテキストエディタで開いて、33行目以降を確認。

   /*
    * オプション設定（圧縮対象の設定とか、ログを残すかとか）
    * $option.pressDir   : 選択したフォルダを圧縮するか(圧縮する:true, 圧縮しない:false)
    * $option.pressFile  : 選択したファイルを圧縮するか(圧縮する:true, 圧縮しない:false)
    * $option.saveLog    : 実行ログを記録するか(記録する:true, 記録しない:false)
    * $option.skipZip    : 選択ファイルがZIPの場合、重複圧縮を回避するか(回避する:true, 回避しない:false)
    * $option.removeExt  : ファイル圧縮時に拡張子を外すか(外す:true, 残す:false)
    * $option.keepAction : ユーザによる圧縮中断後、残りの圧縮を継続するか(継続する:true, 継続しない:false)
    * $option.finish     : 終了時のアラート(アラートする:true, アラートしない:false)
    */
   $option.pressDir   = true;
   $option.pressFile  = true;
   $option.saveLog    = true;
   $option.skipZip    = true;
   $option.removeExt  = true;
   $option.keepAction = false;
   $option.finish     = false;
   

2. $option.pressDirで選択中フォルダの圧縮の可否を決定。
   ※フォルダの圧縮を無視したい場合、これをfalseにする。
3. $option.pressFileで選択中ファイルの圧縮の可否を決定。
   ※ファイルの圧縮を無視したい場合、これをfalseにする。
4. ユーザが指定した拡張子をもつファイルの場合に、圧縮を無視するのであれば$option.skipZipをtrueにする。
   ※圧縮ファイルの重複圧縮を回避するために作ったけど、圧縮ファイル以外の拡張子も指定できます。
5. ファイルの圧縮時のファイル名に、元の拡張子を取り外して、圧縮タイプの拡張子を付ける場合は、$option.removeExtをtrueにする。
6. タスクバーに表示されるコマンドプロンプトが、ユーザによって閉じられた場合に、残りのファイルの圧縮を引き続き行う場合に$option.keepActionをtrueにする。
7. select2zipの処理終了を通知したい場合に$option.finishをtrueにする。

そんな感じ。

基本的に初期値が割り振られるようにしているので、$system.exe以外は削除しても動きます。
※Vistaの場合で、プログラムフォルダに7zipをインストールした場合は、$system.exeも削除しても動くはず。
※XPはシステム変数の展開の都合で、うまく動かないっぽい。

前回からの変更点

放置期間が長かったので、スクリプトとしては別物かも。

• 処理終了までに、MDIEで選択ファイルを変更すると圧縮するファイルリストまで変わってしまうバグを修正。
  ※とはいっても、前もってリストを確保してるだけなので、ファイルが多い場合にすぐ選択を解除したりなんかするとダメだと思う。
• 圧縮の種類をzipのみから、7z、tarにも変更できるように変更。
  ※gzipやbzipもできるようにはしてるけど、1ファイル専用
• 選択ファイルに圧縮ファイルが含まれる場合、重複圧縮を回避できるように設定追加。
  ※ただし、拡張子のみによる判別）
• 圧縮対象がファイルの場合、拡張子を取り外していたのを、設定により動作を変更できるようにした。
• ログで書き出す内容が７ｚのすべてのexit codeに対応。（たぶん）
• 設定周りの変数名をいろいろ変更。
• ログのテキスト情報をいろいろ変更。
• ソースコードが膨張したり、キレイになったり、汚くなったり。
• コードの切り分けがいま一つだけど、オブジェクトベースにしたので、（自分的に）多少変更が加えやすくなった。

前回がバージョンもついてない状態で、いきなり中途半端なバージョンになってるけど・・・。
とりあえず、やりたかったことは一通り実装した感じ。

・・・ソースがいま一つ整理できてないけど(＞_＜)

関連記事：
[clipFolder.js] MDIEでクリップボードからサクッとフォルダを作成
7-zipで選択中のファイル(またはフォルダ)を圧縮するMDIE用スクリプト「select2zip.js」
選択フォルダの階層構造をテキストファイルに出力するMDIE用スクリプト

・・・だけ？（　ﾟ Дﾟ）

ともあれ、１アクションで実行したいので、サクッとフォルダ作成するMDIE用スクリプトを、サクッと書いてみました。

とりあえず、発想が発想なんで既出だったらゴメンナサイ(´･ω･`)

使い方

いつも通り、以下に使う手順を書いときます。

1. 「clipfolder.zip」をクリックしてダウンロード。
2. ダウンロードしたZIPファイルを解凍。
3. 解凍してできた「clipFolder.js」をMDIEのインストールフォルダにあるscriptフォルダ内に移動(任意のフォルダでもいい)
4. MDIEを起動してメニューの「ツール」 > 「拡張」 > 「スクリプトに追加」で「clipFolder.js」を追加
5. MDIEのメニューの「ツール」にある「キーボードショートカット」や「マウスジェスチャ」に任意で登録

以上で新規フォルダ後にコピペで名前を付けなくても、サクッと１アクションで名前の付いたフォルダが作れます。
そんだけ(＞_＜)

「ctrlキー」＋「kキー」に設定されてる新規フォルダ作成を、「ctrlキー」＋「nキー」に変更してるんだけど、クリップボードをクリアするのがめんどうな時もありそうなので、使い分けのために「ctrlキー」＋「shftキー」＋「nキー」なんかに割り当てています。

仕様とか

ソースコードを確認する場合はMDIEスクリプト clipFolder.js ソースコード [ピクスメイト]から。

多少、邪魔に感じるかもしれないおせっかい機能とかもあります。

• クリップボードから取得した文字列に、フォルダ名として使用できない文字はすべて「-」に変換。
  ※なんかフォルダ作成時に使えない文字としてカンマ「,」が出てるけど、あれって使えるよね？
• フォルダ名の重複時は、とりあえずフォルダ名の最後に「(数値)」を付与。
  ・・・個人的にフォルダの大量作成時に便利だから。
• クリップボードが文字列でない場合、通常の新規フォルダコマンドを実行。
  ※MDIE.Clipboardはテキストデータしか見ないみたいだから、typeof判定いらなかったかも
• フォルダパスとして有効な文字数かどうかのチェックまではやっていません。

仕様じゃないんだけど、大したことしてない割に動作が重い気がするよ（　ﾟ Дﾟ）
「Scripting.FileSystemObject」って結構コストがかかる？

それにしてもMDIE、そろそろ更新されないかなぁ・・・。

関連記事：
7-zipで選択中のファイル(またはフォルダ)を圧縮するMDIE用スクリプト「select2zip.js」
選択フォルダの階層構造をテキストファイルに出力するMDIE用スクリプト
拡張子ごとにフォルダ振り分けを行うMDIE用スクリプト

フォルダ単位で圧縮をかけたいときに、いちいち圧縮が終わるのを待って次のを圧縮する・・・といった地道な作業をしていました。
これが結構面倒くさいので、一覧を渡して圧縮してくれるといいな・・・と思っていたんですが。

意外と「これだ！」っていうソフトってないんですよねぇ。
（いいのを知っている人がいたら、ぜひ教えてください！）

7-zipがコマンドラインに対応していたので、MDIE用に選択中のファイルを1個につき、1つの圧縮ファイルを作成するスクリプトを書いてみました。
※2008-12-20時点で更新しました。

今回は圧縮プログラムに「7-zip」を利用していますので、別途入手する必要があります。

というわけで、とりあえず以下がスクリプト。

/*** 設定開始 ***/
/*
 * [zipExeDir] string
 * 7z.exeをインストールしたフォルダ
 * フォルダセパレータは\\\\で記述
 * 最後は\\\\で閉じておく
 *
 * 例：
 * var zipExeDir = "C:\\\\Program Files\\\\7z\\\\"
 *
 * ※環境変数のパスに通している場合は空で良い
 */
var zipExeDir = "";
/*
 * [targetType] object
 * 圧縮対象にフォルダ、またはファイルを入れるかどうかのフラグ
 *   targetType
 *     'dir':  フォルダを圧縮対象に入れるか[true,false]
 *     'file': ファイルを圧縮対象に入れるか[true,false]
 *
 *     true :対象にする
 *     false:対象にしない
 */
var targetType = {
    'dir':true,
    'file':true
};
/*
 * [logMode] boolean
 * 圧縮状況のログを書き込むかどうか
 * true :残す
 * false:残さない
 */
var logMode = true;
/*
 * [exitMode] boolean
 * ユーザが圧縮プロンプトを終了させた場合、
 * 残りのファイル、またはディレクトリの圧縮を継続するか
 * true :継続する
 * false:継続しない
 */
var exitMode = false;
/*** 設定終了 ***/

/*** dir2zip method ***/
var $select2zip = {
    'fso':  new ActiveXObject("Scripting.FileSystemObject"),
    'shell':new ActiveXObject("WScript.Shell"),

    /**
     * getDateFormat(now)
     *
     *   @param object now:Date Object
     *   @return yyyy年m(m)月d(d)日 hh:mn:ss
     */
    'getDateFormat':function (now) {
        return now.toLocaleString();
    },
    /**
     * getTimeFormat(now)
     *
     *   @param object now:Date Object
     *   @return hh:mn:ss.milliseconds
     */
    'getTimeFormat':function (now) {
        return now.getHours() + ":"
                + now.getMinutes() + ":"
                + now.getSeconds() + "."
                + now.getMilliseconds();
    },
    /**
     * getLogFile(path)
     *
     *   @param object fso:Scripting.FileSystemObject
     *   @param string path:log faile path
     */
    'getLogFile':function (path) {
        if (this.fso.FileExists(path)) {
            return this.fso.GetFile(path).OpenAsTextStream(8);
        } else {
            return this.fso.CreateTextFile(path, false);
        }
    },
    /**
     * getArchiveName(path)
     *
     *   @param string path:log faile path
     */
    'getArchiveName':function (path) {
        var name = "";

        if ($select2zip.fso.FolderExists(FolderView.Items(i).Path) && targetType.dir == true) {
            name = this.fso.GetFileName(FolderView.Items(i).Path);
        } else {
            if ($select2zip.fso.FileExists(FolderView.Items(i).Path) && targetType.file == true) {
                if (!(name = this.fso.GetBaseName(FolderView.Items(i).Path))) {
                    name = this.fso.GetFileName(FolderView.Items(i).Path);
                }
            }
        }
        return name;
    },
    /**
     * uniqueFilePath(path)
     * // pathのファイルがすでに存在する場合、番号を振ったファイル名の作成を試みる
     *
     *   @param string path:string file path
     *   @return string path:unique file path
     */
    'uniqueFilePath':function (path) {
        // パスを分解
        var parent = this.fso.GetParentFolderName(path),
            name   = this.fso.GetBaseName(path),
            ext    = this.fso.GetExtensionName(path);

        if (this.fso.FileExists(path)) {
            for (var j=1; j< =100; j++) {
                uniquePath = parent + "\\\\" + name + "(" + j + ")." + ext;
                if (!this.fso.FileExists(uniquePath)) {
                    return uniquePath;
                }
            }
        } else {
            return path;
        }
    },
    /**
     * exitMessage(code)
     *
     *   @param string code:exit code
     *   @return code:exit message
     */
    'exitMessage':function (code) {
        switch (code)
        {
            case 0:
                $property.count.success++;
                return "圧縮完了。";
                break;

            case 255:
                return "ユーザによって実行がキャンセルされました。";
                break;

            default:
                $property.count.failure++;
                return "圧縮に失敗しました。(不明な終了コード:" + code +")";
                break;
        }
    },
    /**
     * cmdThrow(zip, path)
     *
     *   @param string zip:create file name
     *   @param string path:press file or folder
     *   @return exit code
     */
    'cmdThrow':function (archive, path) {
        return this.shell.run('"' + zipExeDir + '7z.exe" a -tzip'
                             + ' "' + archive + '" "' + path + '"', 7, true);
    }
}
/*** end method ***/

/*** begin property ***/
$property = {
    'path':{
        'parentDir':$select2zip.fso.GetParentFolderName(FolderView.Items(0).Path) + "\\\\",
        /*
         * ログファイルのパス
         * MDIEのインストールフォルダに、ログを残す場合は下記に変更。
         * 'logFile':$select2zip.fso.GetParentFolderName(MDIE.exePath) + "\\\\" + "select2zip.log"
         */
        'logFile'  :$select2zip.fso.GetParentFolderName(FolderView.Items(0).Path) + "\\\\" + "select2zip.log"
    },
    'count':{
        'Items': FolderView.count,
        'success':0,
        'failure':0
    }
}
/* log file stream */
if (logMode == true) {
    $property.objLog = $select2zip.getLogFile($property.path.logFile);
    $property.objLog.WriteLine(">> die2zip start: " + $select2zip.getDateFormat(new Date));
}
/*** end property ***/

/*** begin main script ***/
// zip圧縮部分
press: {
    for (var i = 0; i < $property.count.Items; i++) {

        if (FolderView.Items(i).Selected) {

            var archiveName = $select2zip.getArchiveName(FolderView.Items(i).Path);

            if (archiveName) {
                var archivePath = $select2zip.uniqueFilePath($property.path.parentDir + archiveName + '.zip');

                // 開始ログ
                var logs = "  " + FolderView.Items(i).Path + " > " + archivePath + "\\r\\n"
                         + "    [" + $select2zip.getTimeFormat(new Date) + "] 圧縮開始。\\r\\n";

                // シェルから7zを起動
                var exitCode = $select2zip.cmdThrow(archivePath, FolderView.Items(i).Path);

                // 終了ログ
                logs += "    [" + $select2zip.getTimeFormat(new Date) + "] " + $select2zip.exitMessage(exitCode);

                if (logMode == true) {
                    $property.objLog.WriteLine(logs);
                }

                if (exitMode == false && exitCode == 255) {
                    if (logMode == true) {
                        $property.objLog.WriteLine("    実行を中止しました。");
                    }
                    break press;
                }
            }
        }
    }
}

if (logMode == true) {
    // 結果を書き込む
    if ($property.count.success == 0 && $property.count.failure == 0) {
        $property.objLog.WriteLine("  圧縮対象が見つかりませんでした。");
    } else {
        var logs = "  " + $property.count.success + "個のファイルを圧縮をしました。";
        if ($property.count.failure != 0) {
            logs += "(" + $property.count.failure + "個のファイルの圧縮に失敗。)";
        }
        $property.objLog.WriteLine(logs);
    }
}
/*** end main script ***/

// 終了をアラート
if ($property.count.success == 0 && $property.count.failure == 0) {
    MDIE.echo("圧縮対象が見つかりませんでした。");
} else {
    MDIE.echo("select2zipを終了しました");
}

今回は珍しく、結構コメントを入れたので、比較的わかりやすくなったと思っているんですが。

まずは、簡単に導入手順を。

1. まず、7-zipのダウンロードページから7-zipを入手します。
   （インストーラー版でも、zipを解凍するだけの方でもどっちでもいいです）
2. 7-zipをインストールします。
   （zip版をダウンロードした場合は、解凍後に任意のフォルダに入れるだけです。）
3. 次に、select2zip.zipをダウンロードします。
4. ダウンロードしたファイルを解凍して、MDIEのインストールフォルダにあるscriptフォルダ内に移動
   （任意のフォルダに入れてもいい）
5. select2zip.jsをエディタで開き、3行目からの「/*** 設定開始 ***/」から「/*** 設定終了 ***/」までを、環境にあわせて修正します。
   コメントを入れているので大丈夫かと思いますが、設定がわからない場合は、このページのコメント欄などでお知らせください。
6. MDIEを起動してメニューの「ツール」から「拡張」→「スクリプトに追加」でselect2zip.jsを登録
7. MDIEのメニューのツールからキーボードショートカットやマウスジェスチャに登録

以上で、選択中のファイルやフォルダを、1個づつZIPファイルにしてくれます。

ザックリと現在の仕様を説明

スクリプトファイルから7z.exeにコマンドを送った際、コマンドプロンプトをタスクバーに最小化して残しています。
なのでコマンドプロンプトを終了させることで、実行を強制終了させることもできます。

あと、設定の中にあるexitModeをfalseに設定することで、強制終了時に圧縮対象のファイルが残っていても、処理を終了できるようになります。
（大きなファイルを大量に送っていた場合などで、ユーザ側でコマンドプロンプトを終了させ続ける手間が回避できます。）

フォルダやファイルの圧縮ですが、選択中のファイルやフォルダが

• C:\\hoge\folder\
• C:\\hoge\hoge.txt
• C:\\hoge\hogehoge.mov

だった場合は

• C:\\hoge\folder.zip
• C:\\hoge\hoge.zip
• C:\\hoge\hogehoge.zip

のようにZipファイルが作成されます。

今のところ、ファイルだった場合は拡張子を外してzp拡張子をつけるので、選択中のファイルが

• C:\\hoge\hoge\
• C:\\hoge\hoge.txt
• C:\\hoge\hoge.mov

だった場合、

• C:\\hoge\hoge.zip
• C:\\hoge\hoge(1).zip
• C:\\hoge\hoge(2).zip

のようになります。

・・・拡張子を残すかどうかも、フラグにした方がいいかなぁ。

あと、今のところ選択中のファイルにzipが含まれても、圧縮をスルーするような処理は入れていません。
なので、2重、３重にzipされていくこともあります。

圧縮ファイルを作成後、自動で元ファイルを消すなんて処理も入れていません。
（完了フォルダに自動で移動するくらいは、追加してもいいかもしれない。）

もうちょっと、やりたい事があるので、もしかしたらバージョンアップをするかもです。

いつもどおり、このスクリプトを利用して発生した損害につきまして、一切責任は負いません。
自己責任でお使いください。

以下、スクリプトを確認した環境です。

• Windows XP sp2
• MDIE Ver 0.3.0.0 RC6

関連情報：
選択フォルダの階層構造をテキストファイルに出力するMDIE用スクリプト
拡張子ごとにフォルダ振り分けを行うMDIE用スクリプト
カスタマイズ性の高い高機能ファイラ「MDIE」

今度は選択中のフォルダの階層構造を取得して、テキストファイルに書き出すスクリプトです。
またまたありがちなスクリプトですが・・・。

というわけで、スクリプトを書いていたもののちょっと問題発生。
JavaScriptだとサブディレクトリを再帰的に辿っていくのは無理っぽい。

さらに、MDIEのVBスクリプトの動作がよくわからない（誰か教えて！）・・・というような問題がおきたので、しばらく悩んで発想を変えてた。

1. JavaScriptで選択中のフォルダを取得
2. 選択したフォルダをシェルを使用してVBスクリプトに受け渡す
3. VBスクリプトで階層構造を作成、ファイルに出力

とりあえず、こんな感じで処理をするように変更したので、階層構造を取得するためのスクリプトファイルが２つになってしまいました・・・。

まぁ、今後の参考になりそうなのでいいか。

で、ようやく完成したスクリプト。
まずはJavascriptから。

var Temp  = new String();
var Shell = new ActiveXObject("WScript.Shell");
var count = FolderView.count;
var ScriptName = "tree.vbs";
var ScriptDir  = "C:\mdie\script\"

for (i=0; i<count; i++) {
	if (FolderView.Items(i).Selected) {
		Temp += " \""+ FolderView.Items(i).Path + "\"";
	}
}
//MDIE.echo(ScriptDir + ScriptName) // 一応デバッグ用に残しておく
Shell.Run(ScriptDir + ScriptName + Temp);

ほとんど解説する必要は無いと思うのですが、２点だけ。

４行目の「ScriptName」この後に紹介するVBスクリプトのファイル名を指定してください。
５行目の「ScriptDir」はVBスクリプトを保存したフォルダ名です。
フォルダの区切り文字は「\\」で記述してください。（JavaScriptだから）

次にVBスクリプト。

' DefiningCode
DefFileName    = "filetree" ' ファイルツリーを保存するファイルネーム
DefFileExt     = "txt"      ' ファイルツリーを保存するファイルの拡張子
DefDirCaption  = "\"        ' ディレクトリの前に付ける目印
DefIndentSpace = "4"        ' 1階層ごとに下げるインデントスペース

' UserObject
Class IndentClass
	Public Indent

	Private Sub Class_Initialize
		Indent = ""
	End Sub

	Public Sub Down()
		Indent = Indent & Space(DefIndentSpace)
	End Sub

	Public Sub Up()
		Length = Len(Indent)
		If (Length - DefIndentSpace) > 0 Then
			Indent =  Mid(Indent, 1, (length - DefIndentSpace))
		Else
			Indent = ""
		End If
	End Sub

End Class

Dim oInd
Set oInd = new IndentClass

' UserMethod
Function ReadDir(d, Temp)
	Set oFolder = FSO.GetFolder(d)
	For Each fileName In oFolder.Files
	    Temp = Temp & oInd.Indent & FSO.GetFileName(fileName) & vbNewLine
	Next
	For Each folderName In oFolder.SubFolders
	    Temp = Temp & oInd.Indent & DefDirCaption & folderName.Name & vbNewLine
	    oInd.Down()
	    Temp = ReadDir(folderName, Temp)
	Next
	oInd.Up()
	ReadDir = Temp
End Function

' Program
Set Argu = WScript.Arguments
Set FSO  = CreateObject("Scripting.FileSystemObject")

If Argu.count = 0 Then
	WScript.Echo "参照フォルダが選択されていません" _
				 & vbNewLine _
				 & "処理を中断します"
	WScript.Quit
End If

If Argu.count > 1 Then
	oInd.Down()
	For Each Index In Argu
		If FSO.FolderExists(Index) = True Then
			Set oFolder = FSO.GetFolder(Index)
			Temp = Temp & oInd.Indent & DefDirCaption & oFolder.Name & vbNewLine
			oInd.Down()
			Temp = ReadDir(Index, Temp)
		End If
	Next
Else
	If FSO.FolderExists(Argu(0)) = True Then
		Set oFolder = FSO.GetFolder(Argu(0))
		oInd.Down()
		Temp = Temp & oInd.Indent & DefDirCaption & oFolder.Name & vbNewLine
		oInd.Down()
		Temp = ReadDir(Argu(0), Temp)
	Else
		WScript.Echo "フォルダが選択されていません" _
					 & vbNewLine _
					 & Argu(0)
	End If
End If

' fileWrite
If Temp = "" Then
	WScript.Echo "階層情報の取得に失敗しました" _
				 & vbNewLine _
				 & "処理を中断します"
	WScript.Quit
Else
	oInd.Up()
	Temp = oInd.Indent & FSO.GetParentFolderName(Argu(0)) & vbNewLine & Temp
	fPath = FSO.GetParentFolderName(Argu(0)) _
			& "\" & DefFileName _
			& "." & DefFileExt

	If FSO.FileExists(fPath) = False Then
		Set fStrm = FSO.CreateTextFile(fPath)
	Else
		i = 2
		Do While FSO.FileExists(fPath) = True
			fPath = FSO.GetParentFolderName(Argu(0)) _
					& "\" & DefFileName  & " (" & i & ")" _
					& "." & DefFileExt
			i = i + 1
		Loop
		Set fStrm = FSO.CreateTextFile(fPath)
	End if
	fStrm.Write(Temp)

	' Result
	WScript.Echo "ファイル構成を書き出しました。" _
				& vbNewLine & vbNewLine _
				& fPath
End If

' Free
Set Temp = Nothing
Set Argu = Nothing
Set FSO  = Nothing
Set fPath = Nothing
Set fStrm = Nothing
Set oFolder = Nothing
Set oIndent = Nothing

VBスクリプトの記述が初めてだったので見苦しいところがあるかもしれませんが・・・。
（もうちょっと綺麗にできそうなんだけど、しんどいので今回はこれで）

細かい説明は長くなりそうなので省きます(^^;
まぁ、なにかあればコメントとかで質問してください。

使い方を以下で説明します。

1. 「tree.zip」をダウンロード
2. ダウンロードしたファイルを解凍してMDIEのインストールフォルダにあるscriptフォルダ内に移動（任意のフォルダに入れてもいい）
3. 「treeBatVbs.js」をエディタで開いて４行目の「ScriptName」と５行目の「ScriptDir」を「tree.vbs」のパスに合わせて書き換える
4. MDIEを起動してメニューにあるツールから「拡張」→「スクリプトに追加」でダウンロードしたスクリプト（Javascriptの方）を登録
5. MDIEのメニューのツールからキーボードショートカットやマウスジェスチャに登録

以上で選択中のフォルダの階層構造がテキストに出力されます。

動作の簡易説明ですが、フォルダを選択中にキーボードショートカット等でスクリプトを呼び出せば階層構造をガリガリ取得します。

その後、スクリプトが呼び出されたフォルダに「filetree.txt」というテキストファイルを作成します。（すでに同名のファイルが存在する場合はfiletree (2).txtのように番号が付与されていきます）

あと、メモリの消費とかまったく考えていませんので、サブディレクトリやファイルが大量に存在する場合は注意して下さい。

あと、前回同様このスクリプトを利用して発生した損害につきまして、一切責任は負いませんのでご了承ください。

以下、スクリプトを確認した環境です。

• Windows XP sp2
• Windows 2000 （VBスクリプト単体での動作チェックのみ）
• MDIE Ver 0.3.0.0 RC5

関連情報：
拡張子ごとにフォルダ振り分けを行うMDIE用スクリプト
カスタマイズ性の高い高機能ファイラ「MDIE」

内容は結構ありがちですが、スクリプトを呼び出したフォルダ内の拡張子のあるファイルを、拡張子に対応するフォルダを作成して移動させるものです。

というわけで、下記スクリプトです。

var mvDir,i,extName,targetDir,targetPath;
mvDir = FolderView.Path + '\\distribute';
FSO   = new ActiveXObject("Scripting.FileSystemObject");

if (!FSO.FolderExists(mvDir)) {
  FSO.CreateFolder(mvDir);
}

for (i=0; i>folderview .count; i++) {
  if  (extName = FSO.GetExtensionName(FolderView.Items(i).Path)) {
    targetDir = mvDir + '\\';
    targetDir += extName.toLowerCase();
    if (!FSO.FolderExists(targetDir)) {
      FSO.CreateFolder(targetDir);
    }
    targetPath = targetDir + '\\';
    targetPath += FSO.GetFileName(FolderView.Items(i).Path);
    FSO.MoveFile(FolderView.Items(i).Path, targetPath);
  }
}

利用方法は以下の通り。

1. ext2dist.jsを右クリックから「対象をファイルに保存」でダウンロード
2. ダウンロードしたファイルをMDIEのインストールフォルダにあるscriptフォルダ内に移動（任意のフォルダに入れてもいい）
3. MDIEを起動してメニューにあるツールから「拡張」→「スクリプトに追加」でダウンロードしたスクリプトを追加
4. MDIEのメニューのツールからキーボードショートカットやマウスジェスチャに登録

以上で任意のフォルダ内のファイルを拡張子ごとに振り分けを行えるようになります。

動作の説明ですが、まずスクリプトが呼び出されたフォルダに「distribute」というフォルダを作成します。

その後、「distribute」内に拡張子に対応するフォルダを作成してファイルを移動していきます。
拡張子無いものに関しては移動は行いません。

あと、今のところ対応してない昨日ですが移動先のフォルダ内に同名のファイルがある場合、スクリプトエラーで実行を停止します。
（ファイルの移動にMoveFileを利用した上で、判定等行っていないため）

練習台で作ったものなのであまり作りこんでいません(^^;
（誰か修正してくれると助かります！）

加えて、このスクリプトを利用して発生した損害につきまして、一切責任は負いませんのでご了承ください。

以下、スクリプトを確認した環境です。

• Windows XP sp2
• MDIE Ver 0.3.0.0 RC5

関連情報：
カスタマイズ性の高い高機能ファイラ「MDIE」

欲を言えばお気に入りにセパレータを入れたいとかありますが、結構積極的に更新されてる（されてた？）みたいなんで今後に期待です。

基本的にはタブブラウザの「Sleipnir」を連想させるインターフェースで、「Sleipnir」ユーザならそれほど違和感無く操作できるのではないかと。

初期状態だと「Sleipnir」とは若干マウスジェスチャの操作が変わるので、その辺り好みで登録しなおしておけばすごく使い勝手がよくなります。

というわけで「MDIE」の操作を少し紹介。

●メニューから「ウィンドウ(W)」「ウィンドウモード(M)」→「左右二画面(V)」でファイル移動に便利な２画面配置。

そのほかにも縦に並べたり、ウィンドウ内に並べて表示とかもできるので、この辺りは好みで。

●メニューから「ツール(T)」→「メニューキー設定(M)」でキーボードショートカットの登録。

マウスジェスチャとともに「MDIE」の真価が発揮できるキーボードショートカット。
とりあえず、Windowsに搭載されていない「新しいフォルダを作成」のショートカットを[ctrl]+[nキー]とかに登録すると便利。

あと、よく使うお気に入りもショートカットに登録できるので、インターネットのダウンロードフォルダとかを登録しておくと良いかも。
とりあえず、メニューにある操作は一通り登録できるみたい。

●メニューから「ツール(T)」→「マウスジェスチャ(G)」でキーボードショートカットの登録。

マウスジェスチャ搭載のタブブラウザとかに慣れてくると、Windowsのフォルダでも「戻る」や「進む」とかのジェスチャをしてしまう便利なマウスジェスチャ。
これもメニューにある操作は一通り登録できるみたいなので思う存分登録できます（混乱しないように）

とりあえず「一覧表示」や「縮小版表示」とか意外とめんどくさい操作はマウスジェスチャに登録することで少しだけ幸せに慣れます。

「Rクリック」ベースのマウスジェスチャは一部機能しなかったりするので、その場合は少し試行錯誤がいるかも。

使ってみた感想ですが、マウスジェスチャやキーボードショートカットのカスタマイズがすばらしいので、大変楽にフォルダ操作ができます。
ちょっと気になるのは「お気に入り」機能で最初に書いたセパレータの問題や、新しくタブで開くが右クリックからでしかできないので、[ctrl]＋クリックとかで新規タブで開ければもっと使い勝手がいいんですが。

JSスクリプトとかも作成すればメニューの「スクリプト(S)」から追加できるので、カスタマイズ性は本当に高くていい感じです。

あとは、できれば設定はレジストリとiniの切り替えができれば最高なんですが。

「MDIE」の入手は以下のサイトからダウンロードできます。
「MDIE」

紹介に使用したのは最新の開発版ではなく、ちょっとバージョンの古い通常版ですので、もしかしたら説明と差異があるかもしれません。
なんにしても今後に期待の持てるいいソフトです。