vbscript - Microsoft Script Control - "Then" が必要

Question

ファイルをよりよく整理するためのソフトウェアを開発しています。これを行うために、Microsoft Script Control を使用してスクリプト ジェネレーターを開発しました。このスクリプト ジェネレーターは、ディレクトリ内のファイルに対して実行され、フィルター条件に一致するかどうかに応じてブール値を返します。

問題は、if ステートメントに論理演算子を追加するたびに、"Then" を期待してコードのコンパイルに失敗したため、COM 例外が発生することです。行番号がわかりませんが、If ステートメントに何か問題があると思います。

コンパイルする例を次に示します。

Function FilterFiles(Name, Extension, Size, Directory, Created, Accessed, Modified)
Dim Result
If StrComp(Extension, ".jpg", 1) = 0 Then
Result = True
Else
Result = False
End If
FilterFiles = Result
End Function

そしてそうでない例：

Function FilterFiles(Name, Extension, Size, Directory, Created, Accessed, Modified)
Dim Result
If StrComp(Extension, ".jpg", 1) = 0 0r StrComp(Extension, ".png", 1) = 0 0r StrComp(Extension, ".psd", 1) = 0 Then
Result = True
Else
Result = False
End If
FilterFiles = Result
End Function

Answer 1

君の

.. 0 0r ..

それ以外の

.. 0 Or ..

0perator に O (大文字の o) の代わりに 0 (ゼロ) を使用しているようです。