拡張子を取得

拡張子を取得

Option Explicit

Set objFolder = objApl.NameSpace( 検索フォルダ )

For i = 0 To objFolder.Count-1

	Set objItem = objFolder.Item( i )

	If LCase(objFileSys.GetExtensionName(objItem.Name)) = "xls" _
	Or LCase(objFileSys.GetExtensionName(objItem.Name)) = "xlsx" Then
		WScript.Echo "Excelです！"
	Else
		WScript.Echo "Excel以外"
	End If
Next

拡張子を取得して、LCaseで全て小文字にして拡張子を判定しています。

右から4つの文字を取得して拡張子を判断する方法もあるかも知れませんが、こちらの方が確実に拡張子を取得できます。