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

Extension.vbs

' 動かなかったShellFolderViewOCはwindows 2000/ xp のみにしかない
set folderview = WScript.CreateObject("Shell.FolderView.1", "FV_")
set document = CreateObject("Shell.Application").Windows.Item.Document
set regexp = New RegExp
regexp.IgnoreCase = True
folderview.SetFolderView(document)
extension = InputBox("拡張子を入れてください", "拡張子セレクタ", "", 0, 0)
If IsEmpty(extension) Then WScript.Quit
regexp.Pattern=".*"&extension & "$"
For Each folderItem in document.Folder.Items
  If regexp.Test(folderItem.path) Then
    document.SelectItem folderItem,1+8
  Else
    document.SelectItem folderItem,0
  End If
Next

Extension2.vbs

'今度は大丈夫?
set document = CreateObject("Shell.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 document.Folder.Items
  If regexp.Test(folderItem.path) Then
    document.SelectItem folderItem,1+8
  Else
    document.SelectItem folderItem,0
  End If
Next