vba - 带有变量的 VBScript ScriptControl Eval

Question

遇到问题并且无法在网上找到更具体的解决方案来解决我遇到的问题。

我有这样的表情

pictureFolderFullPath = "C:\Work"

'Create Script Control Obj
Dim sc As ScriptControl
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"

Dim content As String
content = sc.Eval("pictureFolderFullPath & "\3.jpg"")

然后，内容就变成了只有“\3.jpg”，而不是拥有图片的完整路径

Answer 1

使脚本引擎可以使用运行时功能。

句法

ScriptControl.AddObject(name, object[, addMembers])

AddObject 方法包含以下部分：

部分说明

name    Required. Name by which the added object is to be known in ScriptControl code.
object  Required. Name of the object exposed at run time.
addMembers  Optional. Boolean value. True if members of object are globally accessible; False if they are not.

评论

使用 AddObject 方法使脚本引擎可以使用运行时功能。AddObject 方法使 ScriptControl 用户能够为脚本代码提供一组名称/对象对。脚本引擎可以以任何方式公开名称。在 VBScript 和 JScript 中，每个名称都显示为可全局访问的名称。