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

g495326

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

1. Option Explicit
   
2. Call main()
   
3. Function main()
   
4.         Dim tmpObj
   
5.         tmpObj = RetObj()
   
6. 
   
7. End Function
   
8. 
   
9. Function RetObj()
   
10.         Dim WshShell
    
11.         Set WshShell = WScript.CreateObject("Wscript.Shell")
    
12.         RetObj = WshShell
    
13. End Function

复制代码

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

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

CrLf

1. Set RetObj = WshShell

复制代码

g495326

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

g495326

回复 2# CrLf


    好像不可以哦。

yiwuyun

1. Option Explicit
   
2. Call main()
   
3. Function main()
   
4.         Dim tmpObj
   
5.    Set     tmpObj = RetObj()
   
6. 
   
7. End Function
   
8. 
   
9. Function RetObj()
   
10.         Dim WshShell
    
11.         Set WshShell = WScript.CreateObject("Wscript.Shell")
    
12.      Set   RetObj = WshShell
    
13. End Function
    

复制代码

g495326

回复 5# yiwuyun


    非常真诚的感谢您！