2015-08-22

アドオン　クリップボードの履歴 - Tablacus Explorer

アドオンのクリップボードの履歴ではファイル・フォルダのカットとコピーの一覧を作成します。

カスタマイズしていない場合はバックグラウンドでの右クリックメニューにクリップボードの履歴が出ます。

f:id:tablacus:20150822232858p:plain

クリップボードの履歴の項目を選ぶと右ドラッグと同じメニューが出ますので、コピー、移動、ショートカットの作成等を選びます。

f:id:tablacus:20150822232910p:plain

2015-08-16

独自関連付け・マウス・キーをメニューで選ぶ - Tablacus Explorer

Tablacus Explorer 15.8.16で独自関連付け等をメニューで選んで実行できるようになりました。

例えば、htmlファイルをダブルクリックすると「ブラウザ」と「メモ帳」のメニューが表示され、選んで実行するという感じです。

設定方法はツール(T)→オプション(O)→メニュー→既定

フィルタを「*.html」

タイプを「メニュー」

オプションを「開く」にします。

f:id:tablacus:20150816231743p:plain

その下にメニューで表示させて実行する項目を作成します。

f:id:tablacus:20150816231937p:plain

f:id:tablacus:20150816232025p:plain

最後にタイプを「メニュー」にし、オプションを「閉じる」にするとそこまでがメニューになります。

f:id:tablacus:20150816232342p:plain

同様にマウスで項目のない場所をホイールクリックした場合にメニューを表示するには

f:id:tablacus:20150816232252p:plain

マウス欄がメニューに表示される名前になります。

f:id:tablacus:20150816232457p:plain

最後にタイプを「メニュー」にし、オプションを「閉じる」にするとそこまでがメニューになります。

f:id:tablacus:20150816232529p:plain

同様にShift+1でドライブCとドライブDのメニューを表示させて選べるようにするには

f:id:tablacus:20150816232659p:plain

キー欄がメニューに表示される名前になります。

f:id:tablacus:20150816232721p:plain

英数字の前に「&」を入れると、メニューを表示している時に前の文字を押すだけで実行できるようになります。

f:id:tablacus:20150816232815p:plain

最後にタイプを「メニュー」にし、オプションを「閉じる」にするとそこまでがメニューになります。

f:id:tablacus:20150816233226p:plain

2015-07-14

ちょっとしたスクリプト - Tablacus Explorer

某所で要望のあったスクリプトを3つ書いてみました。

・フォルダ構成のみクリップボードにコピー

var CreateFolderOnly2 = function (path, dest, Items, nAdd)
{
api.SetWindowText(te.hwnd, path);
CreateFolder(dest);
if (nAdd == 0) {
Items.AddItem(dest);
}
var wfd = api.Memory("WIN32_FIND_DATA");
var hFind = api.FindFirstFile(path + "\\*", wfd);
var bFind = hFind != INVALID_HANDLE_VALUE;
while (bFind) {
if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
var fn = wfd.cFileName;
if (fn != "." && fn != "..") {
CreateFolderOnly2(fso.BuildPath(path, fn), fso.BuildPath(dest, fn), Items, nAdd - 1);
}
}
bFind = api.FindNextFile(hFind, wfd);
}
api.FindClose(hFind);
};

var CreateFolderOnly = function (Item, Items, temp, nAdd)
{
var path = api.GetDisplayNameOf(Item, SHGDN_FORPARSING);
if (/^[A-Z]:\\|^\\/i.test(path)) {
var fn = fso.GetFileName(path);
if (fn && fso.FolderExists(path)) {
var dest = fso.BuildPath(temp, fn);
CreateFolderOnly2(path, dest, Items, nAdd);
}
}
};

var title = api.GetWindowText(te.hwnd);
var temp = fso.BuildPath(fso.GetSpecialFolder(2).Path, "tablacus");
if (!IsExists(temp)) {
CreateFolder(temp);
}
temp += "\\folder";
DeleteItem(temp);
CreateFolder(temp);

var FV = GetFolderView(Ctrl, pt);
var Items = te.FolderItems();
var Selected = FV.SelectedItems();
if (Selected) {
for (var i = 0; i < Selected.Count; i++) {
CreateFolderOnly(Selected.Item(i), Items, temp, 0);
}
}
if (Items.Count == 0) {
CreateFolderOnly(FV, Items, temp, 1);
}
api.OleSetClipboard(Items);
api.SetWindowText(te.hwnd, title);

f:id:tablacus:20150714222903p:plain

長いしフォルダがたくさんあると時間が掛るので、WSHにするとか、アドオンにしてマルチプロセスにする方が良さそうな感じですが…

・１階層上に送る

var FV = GetFolderView(Ctrl, pt);
var Selected = FV.SelectedItems();
if (Selected) {
var oDest = sha.NameSpace(fso.GetParentFolderName(api.GetDisplayNameOf(FV, SHGDN_FORPARSING)));
if (oDest) {
oDest.MoveHere(Selected, FOF_ALLOWUNDO);
}
}

f:id:tablacus:20150714223605p:plain

・1階層下から吸い出す

var FV = GetFolderView(Ctrl, pt);
var path = OpenDialog(fso.GetParentFolderName(api.GetDisplayNameOf(FV, SHGDN_FORPARSING)));
if (path) {
FV.Folder.MoveHere(path, FOF_ALLOWUNDO);
}

f:id:tablacus:20150714224256p:plain

2015-06-29

ラベルグループ - Tablacus Explorer

ラベルグループは予めグループで登録しておいたラベルを管理できるようにするアドオンです。

f:id:tablacus:20150629222231p:plain

例えば、こんな感じで「時間」と「場所」のグループを作っておくと…

f:id:tablacus:20150629222407p:plain

追加するラベルや表示するラベルを時間や場所でグループしたラベルで管理できます。

f:id:tablacus:20150629222524p:plain

それと、ラベルのメニューの「詳細」は詳細表示の際にまだ「ラベル」カラムを表示していない場合、「ラベル」カラムを表示させるメニューです。

2015-06-14

混在ソート、総ファイルサイズソートの実現方法 - Tablacus Explorer

混在ソートと総ファイルサイズソートのアドオンを作成しました。
X-Finderの場合は自分でファイルやフォルダの一覧を管理しているので、項目の順序を好きな順にすることは、そう難しいことではありません。
しかし、Tablacus Explorerの場合は中でエクスプローラを動かしている様なものなので、今までその順序を変更する方法が分かっていませんでした。
エクスプローラと同じという動作はそのままなので楽ですが、違うことをしようとすると困難になります。

そして、試行錯誤してやっと順序を入れ替える方法を見つけました。
という訳で今回はどういう方法で実現したかをブログに書きます。

基本的には IShellView2::SelectAndPositionItem で指定する項目のPOINTを先頭の項目の位置に設定するとその項目が最初の項目になります。

しかし、うまく動かすには以下の設定を行う必要がありました。

1.表示モードは「詳細」「一覧」以外にする
詳細、一覧の場合は並べ替えの際に別の表示にして元に戻せばOK
Tablacus Explorerの場合は「詳細」「一覧」の場合は一時的に「並べて表示」にしているのでソートの際に「並べて表示」がちょっと見えます。（※描画を一時停止して見えなくしました）

2.FolderFlagsのFWF_AUTOARRANGEをオンにする。
これも並べ替えの前にIShellView2::SetCurrentFolderFlagsでFWF_AUTOARRANGEをオンにして元に戻せばOK

3.グループで表示は「なし」にする
グループ表示をしているとうまく動きません。

4.FolderViewOptionsのFVO_VISTALAYOUTをオンにする
IExplorerBrowser::SetFolderViewOptionsで設定するFVO_VISTALAYOUTもオンじゃないと動きません。しかもこの設定FolderViewOptionsはフォルダの移動前に設定しないと効果が出ないので注意です。同じフォルダを指定して IExplorerBrowser::BrowseToObject や IExplorerBrowser::BrowseToObject を実行してもまだ設定が切り替わりません。

5.Windows Vista以降
上記の設定を行ってもWindows XPではうまく動きませんでした。