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