読者です 読者をやめる 読者になる 読者になる

タブファイラー開発ブログ

Tablacus ExplorerやX-Finderの作者のブログ

ちょっとしたスクリプト2016年4月 - Tablacus Explorer

某所で要望があった機能をスクリプトで書いてみました。

 

・ファイル群とフォルダ群の境目にジャンプ

var FV = GetFolderView(Ctrl,pt);
var Items = FV.Items();
var bFolder = !IsFolderEx(Items.Item(0));
var nIndex = Math.floor((Items.Count - 1) / 2);
var nDiff = nIndex;
while (nDiff) {
  if (bFolder ^ IsFolderEx(Items.Item(nIndex))) {
    nIndex += nDiff;
  } else {
    nIndex -= nDiff;
  }
  nDiff = Math.floor(nDiff / 2);
}
while (bFolder ^ IsFolderEx(Items.Item(nIndex))) {
  nIndex++;
}
FV.SelectItem(Items.Item(nIndex), SVSI_SELECT | SVSI_DESELECTOTHERS | SVSI_ENSUREVISIBLE | SVSI_FOCUSED); 

 

f:id:tablacus:20160404232159p:plain