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