如何从另一个vbscript（另一个.vbs文件）获取变量

我有一个包含以下变量的文件

Dim apple(10)
apple(0)= "banana"
apple(1)= "2 banana"
apple(2)= "3 banana"

这些变量位于

script/test/test.vbs

现在我有另一个文件，它有以下内容

MSGBOX apple(0)
MSGBOX apple(1)

它位于

script/main.vbs

---

如何使这些成为可能？

是的，这是可能的。还需要做一些额外的工作，包括外部文件。我的工作基于此

test.vbs文件的内容

Sub CustomInclude(file)

  Dim fso, f

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile(file & ".vbs", 1)

  str = f.ReadAll

  f.Close

  ExecuteGlobal str

End Sub

'Set variables here
Dim apple(10)
apple(0)= "banana"
apple(1)= "2 banana"
apple(2)= "3 banana"

' Now call subroutine to include my external file.
CustomInclude "../main"  'Use of relative folder structure

main.vbs的内容

MSGBOX apple(0)
MSGBOX apple(1)
MSGBOX apple(2)

---

对于.HTA/.HTML/.WSF，不要尝试重新发明控制盘，而是使用标记的src属性

对于plain.VBS，请使用ExecuteGlobal，如下所示：

---

在任何一种情况下，将要重复使用的代码放入包含的文件中；不要把工作浪费在只提供一行代码的fancy Include Sub/函数上。

如果这是一个网页，您可以使用html Include使其工作。。（通常将其粘贴在您想要内容的位置。（头部标签或身体标签等）

---

你救了我一天。但这一天在我的项目中有一个限制。我的项目可能同时使用HTA和HTML文件，其中HTML文件将由HTA在IE中自动打开。因为你使用的是

Set fso=CreateObject（“Scripting.FileSystemObject”）

此IE提示用户使用ActiveX组件，我不想使用。有什么建议吗？

Dim gsLibDir : gsLibDir = "M:\lib\kurs0705\"
Dim goFS     : Set goFS = CreateObject( "Scripting.FileSystemObject" )
ExecuteGlobal goFS.OpenTextFile( gsLibDir & "BaseLib.vbs" ).ReadAll()

<!--#include file="../include/FileWithVaraibles.htm"-->