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ではうまく動きませんでした。