[问题求助] 【已解决】请问在vbs中，函数如何返回在其中创建的对象？

g495326

我写的代码如下：
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━

Option Explicit
Call main()
Function main()
	Dim tmpObj
	tmpObj = RetObj()

End Function

Function RetObj()
	Dim WshShell
	Set WshShell = WScript.CreateObject("Wscript.Shell")
	RetObj = WshShell
End Function
复制代码

运行报告错误
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━

我的问题：
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━
RT，怎么才能正确的返回对象呢，请不要使用全局变量。谢谢大家的帮助

CrLf

Set RetObj = WshShell
复制代码

g495326

谢谢楼上回复，还是不行。

g495326

回复 2# CrLf


    好像不可以哦。

yiwuyun

Option Explicit
Call main()
Function main()
        Dim tmpObj
   Set     tmpObj = RetObj()

End Function

Function RetObj()
        Dim WshShell
        Set WshShell = WScript.CreateObject("Wscript.Shell")
     Set   RetObj = WshShell
End Function
复制代码

g495326

回复 5# yiwuyun


    非常真诚的感谢您！