Как использовать один VBScript из другого

Модули и VBScript

Привыкли к модульному программированию и пишите на VBS? Тяжко... Но "включить" один файл в другой всеже можно! Правда придется написать процедуру-включатель :). Так же будут особенности при обработке ошибок. В частности ошибки синтаксиса включаемых скриптов буду всего скорее падать на строку ExecuteGlobal...

' Пример включения скрипта в другой скрипт

' Функция, включающая файл в глобальное пространство имен
Sub Inc_File(FileName)
  Dim objFileSystem, objTextStream, strInc

  Set objFileSystem = CreateObject("Scripting.FileSystemObject")
  Set objTextStream = objFileSystem.OpenTextFile(FileName, 1)
  strInc = objTextStream.ReadAll
  objTextStream.Close
  ExecuteGlobal strInc
End Sub

' Пример использования
Inc_File "TestInc.vbs"