Microsoft腳本控制 - 預期「然後」

Question

我一直在開發一些軟件來幫助更好地組織我的文件。爲此，我使用Microsoft Script Control開發了一個腳本生成器，然後運行目錄中的文件並根據它們是否符合過濾條件返回布爾值。

問題是，無論何時向if語句添加任何邏輯運算符，我都會得到一個COM異常，因爲代碼編譯失敗，期待「Then」。我找不到一個行號，但我猜這是錯誤的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 .. 

看起來像你爲0操作者使用0（零）而不是O（大寫字母o）。