Question

我在VBScript中编写了一个库。

现在我想在另一个VBScript中使用它，但我不确定语法。

如果路径为：

，如何加载我的库

C://User/My Documents/VBlib.vbs

Normaly从外部库加载一个类我会这样做：

Set OutlookApp = CreateObject("Outlook.Application")

据我所知，可能的解决方案之一是添加我的库 object reference library但是库有错误的文件扩展名。

Answer 1

我倾向于使用ExecuteGlobal作为包含我写入其他vbs文件的函数库的方法。我将它包装在一个名为IncludeFile的函数中，并将函数添加到我的vbscript底部，然后用它来“添加”我的函数库：

IncludeFile "\\path\to\my\library.vbs"

'... vbscript here can call any functions belonging to the library


' so long as this function is in the script at the end, anyway
Function IncludeFile(ByVal oFunctionLib)
    Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject")
    Dim oLibrary : Set oLibrary = oFso.OpenTextFile(oFunctionLib, 1, False)
    Dim sFunctions : sFunctions = oLibrary.ReadAll
    oLibrary.Close
    Set oLibrary = Nothing
    Set oFso = Nothing
    ExecuteGlobal sFunctions
End Function

加载用户编写的库

1 个答案: