[唐胡璐]VBS技巧 - 引用(include)外部函数库

我们经常会碰见这样的情况，脚本A中想引用脚本B中的方法，VBS中可能通过以下方法来实现：



     Function Include(strFileName)
        Dim objFileContent
        Set objFileContent = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFileName,1,False) 
        ExecuteGlobal objFileContent.ReadAll
        Set objFileContent = Nothing   
    End Function

 

在脚本A中加入这个Function，调用此Function：

 Call Include(ProjectPath + "脚本B.vbs")

这样即可实现外部函数的调用。