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

提供: MeryWiki
移動先: 案内検索

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

// -----------------------------------------------------------------------------
// フォルダ内のファイルをすべて開く
//
// 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();