特定のフォルダで「ファイルを開く」ダイアログ

基本的に [ファイル] メニュー >> [開く...] で呼び出される「ファイルを開く」ダイアログは、"アクティブなドキュメントの親フォルダ" か "Mery 起動時の作業フォルダ" などが起点となります。

このマクロでは「ファイルを開く」ダイアログを呼び出したさい、つねに特定のフォルダに強制移動します。

• ソースコード内でフォルダパスを指定してください。

（※日本語パスの場合にもキー入力をエミュレートするとなるとややこしいので、クリップボード経由でフォルダパスを送信します）

ソースコード

#title = "開く..."
#tooltip = "ファイル選択ダイアログを開く"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",274

// 任意のフォルダを起点にファイル選択ダイアログを開く
// ファイルの種類： すべてのファイル

// ■フォルダを指定する■（\ はふたつ重ね／末尾にも \\ を付ける）
var folder = "%USERPROFILE%\\デスクトップ\\";

var shell = new ActiveXObject( "WScript.Shell" );
var fso = new ActiveXObject( "Scripting.FileSystemObject" );
folder = shell.ExpandEnvironmentStrings( folder );
// クリップボードのデータを退避させて、フォルダパスをセットする
if ( fso.FolderExists( folder ) ) {
  var cb = ClipboardData.GetData();
  ClipboardData.SetData( folder );
// キー入力をエミュレート（Ctrl+V, Enter, Delete, Alt+T, DownArrow, End, Enter, Alt+N）
// Alt+T = 「ファイルの種類(T):」 ／ Alt+N = 「ファイル名(N):」
  shell.SendKeys( "^V~{DEL}%T{DOWN}{END}~%N" );
}
// ファイルメニューのコマンド「開く...」
editor.ExecuteCommandByID( MEID_FILE_OPEN = 2062 );
// クリップボードのデータを復帰
if ( cb )
  ClipboardData.SetData( cb );

メモ

• 2018/12/01 (sukemaru)

初版

• 2018/12/05 (sukemaru)

第2版： フォルダの実在確認とクリップボードデータの復帰のためのコードを追加

• 2018/12/19 (sukemaru)

フォルダ指定の var folder = のうしろのダブルクォートが二重になっていたので修正

% % で囲った環境変数の展開