防止导入时执行特定代码

Posted 2021-05-04

我正在研究一个多文件VBScript项目。一些用作库（它们仅包含Subs和Functions），而另一些用作程序条目。

我正在使用此功能从其他文件导入功能

Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")

Sub Import(ByVal FileName)
  Dim File
  Set File = Fso.OpenTextFile(FileName, 1) ' ForReading
  ExecuteGlobal File.ReadAll()
  File.Close
End Sub

但是，有时我希望文件能够在导入时自行运行，并且我希望它在两种情况之间表现不同。我认为有些东西与Python相当：

if __name__ == "__main__":
    # Code when run directly

有没有办法在VBScript中执行此操作？或者我是否必须实施一个过滤器，在导入时手动删除所有不需要的代码？

答案

使用WScript.Script[Full]Name检查模块是否包含或独立执行。