vbscript脚本2-实现include的办法

 vbscript本身没有include这样包含其他vbs文件的支持，在asp或html页面里可以用<script ...这样来包含一个vbs文件，如果是直接运行的vbs脚本，就只有用其他办法来代替这个功能了。在网上找到一段实现的代码，在这次的项目中起了大作用了。用vbs实现很多复杂的业务时，需要把一些公共的函数，class等写在一个公共的可复用的vbs文件里，像个库一样，其他的脚本都包含这个库的脚本。

http://blog.csdn.net/zmxj/archive/2009/02/13/3887686.aspx

 

Sub Include(sInstFile) Dim oFSO, f, s Set oFSO = CreateObject("Scripting.FileSystemObject") Set f = oFSO.OpenTextFile(sInstFile) s = f.ReadAll f.Close ExecuteGlobal s End Sub

使用的时候，这个把这个sub放在代码里，然后用 Include "comm.vbs" 这样来包含以下就可以了。

参考：http://hi.baidu.com/myvbscript/blog/item/3a100e17476e83014b90a7be.html