VBS - 如何将对象作为参数传递

Question

我正在处理小脚本，并在VBS中做出错误的决定。

... 
result = FindAndUpdate(objDictionary, id) 
... 
Function FindAndUpdate(objDictionary, id) 
    MsgBox(objDictionary.Count) 
    FindAndUpdate = true 
End Function 

现在我正在努力与没有任何意义的事情。我正在传递Dictionary对象来运行。在函数MSGBOX（objDictionary.count）执行，我得到15号在警告框，但立即被错误报道在同一行所需的对象：“objDictionary”

任何帮助表示赞赏

Answer 1

您可加入检查objDictionary并退出你的函数（如果它不存在）：

Function FindAndUpdate(objDictionary, id) 
    If Not IsObject(objDictionary) Then 
    FindAndUpdate = false 
    Exit Function 
    End If 

    MsgBox(objDictionary.Count) 
    FindAndUpdate = true 
End Function