51Testing软件测试论坛

标题: 谁问如何include来着？给你一个写好的，呵呵 [打印本页]

作者: lovetest6 时间: 2005-6-14 15:16
标题: 谁问如何include来着？给你一个写好的，呵呵

Sub Include(cNameScript)
Dim oFS, oFile
Set oFS = CreateObject("Scripting.Filesystemobject")
Set oFile = oFS.OpenTextFile(cNameScript)
ExecuteGlobal oFile.ReadAll()
oFile.Close
Set oFile = Nothing
Set oFS = Nothing
End Sub

复制代码

按我想象大多用不到，不过有人要用，就拿去试试看哦。
呵呵。
我个人觉得......

若是要拿VB当C用。是不是应该写个com组件好。

insert-->call to existing action应该就能用满足那个include的要求了吧？

[ Last edited by lovetest6 on 2005-6-14 at 15:36 ]

作者: lovetest6 时间: 2005-6-14 15:35
这个也可以试试看。

ExecuteFile ""

ExecuteFile "MyFuctions.vbs"

x = SomeFunction ' Defined in MyFuctions.vbs

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)