フォルダ内のファイルをすべて開く

フォルダ内のファイルをすべて開きます。

// -----------------------------------------------------------------------------
// フォルダ内のファイルをすべて開く
//
// Copyright (c) Kuro. All Rights Reserved.
// www:    http://www.haijin-boys.com/
// -----------------------------------------------------------------------------

// 対象の拡張子を定義(任意)
var r = new RegExp("\.(txt|html|css)");

// Mery本体のパスを取得
var mery = editor.FullName;
var application = new ActiveXObject("Shell.Application");

// フォルダの参照ダイアログを表示
var folder = application.BrowseForFolder(0, "フォルダの参照", 11, 0);

// キャンセルの場合は終了
if (!folder)
  Quit();

var shell = new ActiveXObject("WScript.Shell");

for (var e = new Enumerator(folder.Items()); !e.atEnd(); e.moveNext()) {
  var s = e.item().Path;
  if (s.match(r)) {
    shell.Exec("\"" + mery + "\" \"" + s + "\"");
    Sleep(40);
  }
}

// 無題で未変更の場合は閉じる
if (document.FullName == "" && document.Saved)
    document.Close();