VBScriptコードに詳しい方、教えてください。

指定フォルダに、拡張子PDFのファイルが存在すれば、変数resultにtrueを入れるスクリプトを作成中です。

下記strFileにはファイル絶対パスを入れるとのことだったので、（指定フォルダの絶対パス）と文字列”\*.PDF”を連結した文字列を入れました。

実行してみると、エラーは出ませんが、変数resultにtrueが入らないようです。

どこを修正すればよいでしょうか？

------<ここから>---
Option Explicit

Dim objFSO ' FileSystemObject
Dim strFile ' ファイル名
Dim result ' 表示用メッセージ

strFile = !ファイルパス!

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
If UCase(objFSO.GetExtensionName(strFile)) = "PDF" Then
' If objFSO.FileExists(strFile) = True Then
result = true
Else
result = false
End If

-----<ここまで>---