가져올 때 특정 코드가 실행되지 않도록하십시오.

Question

다중 파일 VBScript 프로젝트에서 작업하고 있습니다. 일부는 라이브러리 역할을하며 (일부는 Sub 및 Function 만 포함) 다른 일부는 프로그램 항목으로 사용됩니다. 내가 다른 파일

그러나

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 

에서 기능을 가져 오려면이 기능을 사용하고

, 가끔 파일이 가져올 수있는 동안 단독으로 동작 할 수 있도록하려면, 난에 원하는 두 경우간에 다르게 행동합니다. 제 생각에는 파이썬과 같은 것이 있습니다 :

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

VBScript에서이 작업을 수행 할 방법이 있습니까? 아니면 가져올 때 원치 않는 모든 코드를 수동으로 제거하는 필터를 구현해야합니까?

Answer 1

WScript.Script[Full]Name을 사용하여 모듈이 독립 실행 형으로 포함되거나 실행되는지 확인하십시오.