拡張子によるファイル選択をwindowsで

現在エクスプローラで開いているフォルダを対象にする

Extension3.vbs

set application = CreateObject("Shell.Application")
set document = application.Windows.Item.Document
set regexp = New RegExp
regexp.IgnoreCase = True
extension = InputBox("拡張子を入れてください", "拡張子セレクタ", "", 0, 0)
If IsEmpty(extension) Then WScript.Quit
regexp.Pattern=".*"&extension & "$"
For Each folderItem in application.NameSpace(application.Windows.Item.LocationURL).Items
  If regexp.Test(folderItem.path) Then
    document.SelectItem folderItem,1+8
  Else
    document.SelectItem folderItem,0
  End If
Next

document.SelectItem folderItem,0の行を消せば、
選択した項目に追加出来るようになる

xplorer2用

Extension4xplorer2.vbs

set shell = CreateObject("WScript.Shell")
shell.AppActivate("xplorer2")
WScript.Sleep 500
shell.SendKeys "%M"
shell.SendKeys "{DOWN 4}"
shell.SendKeys "~"

xplorer2の機能そのままで、テンキーの+でも出来ます

参考サイト

第5回 WshShellオブジェクトの詳細（1） (4/4)：Windows管理者のためのWindows Script Host入門 - ＠IT