在 VBScript 中重写 CreateObject 函数

Question

我想用我自己的函数覆盖 VBScript 中默认的 CreateObject() 函数。

基本上这个例子在VB6中：

http://www.darinhiggins.com/the-vb6 -createobject-function/

我无法弄清楚这一行是：

 Set CreateObject = VBA.CreateObject(Class$, ServerName$)

How do Irefer to "VBA" in VBSript?

Answer 1

这个快速测试似乎有效......

Function CreateObject(className, serverName)
   '---- override the CreateObject
   '     function in order to register what
   '     object is being created in any error message
   '     that's generated
   Dim source, descr, errNum

   WScript.echo "In custom CreateObject"
   If Len(serverName) > 0 Then
      Set CreateObject = WScript.CreateObject(className, serverName)
   Else
      Set CreateObject = WScript.CreateObject(className)
   End If

End Function

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject", "")
path = fso.GetAbsolutePathName(".")

WScript.echo path

不能保证！ ;-)

Answer 2

我不认为你可以覆盖它，以便所有代码都使用它，只有你的代码。

在这种情况下，它的名称并不重要（除非您有大量无法更改的现有代码）。 您可以将其称为 CreateObjectEx() 或 ExCreateObject() 或类似的名称吗？ 让这个函数添加所有错误处理等，然后转身调用 main/core CreateObject() 方法