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

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

// 対象の拡張子を定義(任意)
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();
}