Include Files in VB Script

[admin]

Add this Sub to your main vbs script

Usage:
Include "[PATH TO SOME VBS FILE]"

Code: Select all

Sub Include (strFile)
dim objFSO ,objTextFile 

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objTextFile = objFSO.OpenTextFile(strFile, 1)
  ExecuteGlobal objTextFile.ReadAll
  objTextFile.Close 
  Set objFSO = Nothing
  Set objTextFile = Nothing
End Sub

Graciously stolen from https://blog.ctglobalservices.com/scrip ... -vbscript/