VBスクリプトで特定フォルダから拡張子がexeだったファイル一覧を取得する方法

特定フォルダから拡張子がexeだったファイルの一覧を取得する方法です。

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

Call Query_Directory("C:\Windows")

Set objFSO = Nothing

Sub Query_Directory(PATH)
	Set objFOLDERS = objFSO.GetFolder(PATH)
	
	For Each FILE In objFOLDERS.Files
		'拡張子がZIPだった場合、画面に出力する
	    If GetExtensionName(FILE) = "exe" Then
	    	Wscript.Echo FILE
	    End If
	Next
	
	For Each Folder In objFOLDERS.SubFolders
		Query_Directory(Folder)
	Next
	
	Set objFOLDERS = Nothing
End Sub

Function GetExtensionName(PATH)
	GetExtensionName = objFSO.GetExtensionName(PATH)
End Function