「特定のフォルダで「ファイルを開く」ダイアログ」の版間の差分
ナビゲーションに移動
検索に移動
ページを新規作成 |
→ソースコード: 更新 |
||
| 8行目: | 8行目: | ||
== ソースコード == | == ソースコード == | ||
<source lang="javascript"> | <source lang="javascript"> | ||
#title = "開く..." | #title = "開く..." | ||
#tooltip = "ファイル選択ダイアログを開く" | #tooltip = "ファイル選択ダイアログを開く" | ||
// #icon = " | // #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",274 | ||
// 任意のフォルダを起点にファイル選択ダイアログを開く | // 任意のフォルダを起点にファイル選択ダイアログを開く | ||
// ファイルの種類: すべてのファイル | // ファイルの種類: すべてのファイル | ||
// | // ■フォルダを指定する■(\ はふたつ重ね/末尾にも \\ を付ける) | ||
var folder = ""%USERPROFILE%\\Desktop\\""; | |||
// クリップボードのデータを退避させて、フォルダパスをセットする | |||
var cb = ClipboardData.GetData(); | |||
var Fso = new ActiveXObject( "Scripting.FileSystemObject" ); | |||
if ( Fso.FolderExists( folder ) ) { | |||
ClipboardData.SetData( folder ); | |||
// キー入力をエミュレート(Ctrl+V, Enter, Delete, Alt+T, DownArrow, End, Enter, Alt+N) | // キー入力をエミュレート(Ctrl+V, Enter, Delete, Alt+T, DownArrow, End, Enter, Alt+N) | ||
// Alt+T = 「ファイルの種類(T):」 / Alt+N = 「ファイル名(N):」 | // Alt+T = 「ファイルの種類(T):」 / Alt+N = 「ファイル名(N):」 | ||
new ActiveXObject( "WScript.Shell" ).SendKeys( "^V~{DEL}%T{DOWN}{END}~%N" ); | new ActiveXObject( "WScript.Shell" ).SendKeys( "^V~{DEL}%T{DOWN}{END}~%N" ); | ||
} | |||
// ファイルメニューのコマンド「開く...」 | // ファイルメニューのコマンド「開く...」 | ||
editor.ExecuteCommandByID( MEID_FILE_OPEN = 2062 ); | editor.ExecuteCommandByID( MEID_FILE_OPEN = 2062 ); | ||
// クリップボードのデータを復帰 | |||
ClipboardData.SetData( cb ); | |||
</source> | </source> | ||
2018年12月5日 (水) 22:00時点における版
基本的に [ファイル] メニュー >> [開く...] で呼び出される「ファイルを開く」ダイアログは、"アクティブなドキュメントの親フォルダ" か "Mery 起動時の作業フォルダ" などが起点となります。
このマクロでは「ファイルを開く」ダイアログを呼び出したさい、つねに特定のフォルダに強制移動します。
- ソースコード内でフォルダパスを指定してください。
(※日本語パスの場合にもキー入力をエミュレートするとなるとややこしいので、クリップボード経由でフォルダパスを送信します)
ソースコード
#title = "開く..."
#tooltip = "ファイル選択ダイアログを開く"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",274
// 任意のフォルダを起点にファイル選択ダイアログを開く
// ファイルの種類: すべてのファイル
// ■フォルダを指定する■(\ はふたつ重ね/末尾にも \\ を付ける)
var folder = ""%USERPROFILE%\\Desktop\\"";
// クリップボードのデータを退避させて、フォルダパスをセットする
var cb = ClipboardData.GetData();
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
if ( Fso.FolderExists( folder ) ) {
ClipboardData.SetData( folder );
// キー入力をエミュレート(Ctrl+V, Enter, Delete, Alt+T, DownArrow, End, Enter, Alt+N)
// Alt+T = 「ファイルの種類(T):」 / Alt+N = 「ファイル名(N):」
new ActiveXObject( "WScript.Shell" ).SendKeys( "^V~{DEL}%T{DOWN}{END}~%N" );
}
// ファイルメニューのコマンド「開く...」
editor.ExecuteCommandByID( MEID_FILE_OPEN = 2062 );
// クリップボードのデータを復帰
ClipboardData.SetData( cb );
スポンサーリンク