谁问如何include来着？给你一个写好的，呵呵

lovetest6

1. Sub Include(cNameScript)
   
2. Dim oFS, oFile
   
3. 
   
4. Set oFS = CreateObject("Scripting.Filesystemobject")
   
5. Set oFile = oFS.OpenTextFile(cNameScript)
   
6. ExecuteGlobal oFile.ReadAll()
   
7. oFile.Close
   
8. 
   
9. Set oFile = Nothing
   
10. Set oFS = Nothing
    
11. End Sub

复制代码

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

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

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

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

lovetest6

这个也可以试试看。

ExecuteFile ""

ExecuteFile "MyFuctions.vbs"

x = SomeFunction ' Defined in MyFuctions.vbs