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