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

提供: MeryWiki
ナビゲーションに移動 検索に移動
Sukemaru (トーク | 投稿記録)
ページを新規作成
 
Sukemaru (トーク | 投稿記録)
8行目: 8行目:


== ソースコード ==
== ソースコード ==
ダウンロード: 「[[ファイル:ファイル選択ダイアログを開く.zip]]」(アイコン入り)
<br>※アイコンはマテリアルデザインっぽいアイコン
<source lang="javascript">
<source lang="javascript">
#title = "開く..."
#title = "開く..."
#tooltip = "ファイル選択ダイアログを開く"
#tooltip = "ファイル選択ダイアログを開く"
// #icon = "folder_open[favorite].ico"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",274


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


// ■フォルダを指定する(\ はふたつ重ね/末尾にも \\ を付ける)
// ■フォルダを指定する■(\ はふたつ重ね/末尾にも \\ を付ける)
ClipboardData.SetData( "%USERPROFILE%\\Desktop\\" );
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 );
スポンサーリンク