|
お世話になります。いつも便利に使わせていただいています
当方、何をするにもファイラーからアクセスする癖がついているため
タブ及びウィンドウの開きすぎでしょっちゅうわけがわからなくなっています
そこで特定の作業でまとめて開きたいフォルダをブックマークに登録して
1クリックオープンしたいのです
こんな感じで
https://i.imgur.com/p6Py3Ei.png
1.タイトルバーに任意の文字列(グループタイトル)を表示したい
2.新規ウィンドウを分割された状態で2画面ファイラー風に起動したい
メニュー ブックマーク - ブックマークに追加... - 現在開いてるタブ全て
グループ化の方法 : 1アクション(新規ウィンドウ)
これでまとめて新しいウィンドウで開くことはできるのですが分割が再現できません。
そこでスクリプトを組んだのですが新規ウィンドウで開く方法が分かりませんでした。
--- bkup-open.vbs-----
Dim i,folder1,folder2
folder1 = array("C:\", "D:\", "E:\") 'src
folder2 = array("Y:\C", "Y:\D", "Y:\E") 'dest
'Command "新規ウィンドウ"
'* ここでフォーカスを新規ウィンドウに移動したい *
'* ついでに新規ウィンドウにタイトル名をセットしたい
' window.title = "*** バックアップ作業用 ***" '…みたいな感じで
'分割 上
Open folder1(0), 1, 0, 0
CloseOtherTab()
for i= 1 to ubound(folder1) step 1
Open folder1(i), 1, 0, 0
next
'分割 下
Config.SplitMode = 1 ' 縦に分割
Open folder2(0), 5, 0, 0 ' 新規分割で開く
for i = 1 to ubound(folder2) step 1
Open folder2(i), 1, 0, 0
next
--- bkup-open.vbs ここまで-----
一応上のvbsを下記↓のような形で ブックマークに追加 すれば2.の目的は達成でき
ました。
%HmFilerdir%\HmFilerClassic.exe /i /x %usrscriptdir%\bkup-open.vbs
ただこれですと手順がだいぶ煩雑でリンク切れの要素も増えるのでできればスクリプ
ト内で
完結させたいです。もしくは グループ化:1アクション(新規ウィンドウ) で分割状態
まで
再現してくれると嬉しいのですが。
|
|