如何在VB中运行 VBSCRIPT 程序?

Question

好像是引用什么东东, 请问该如何引用.谢谢

Answer 1

为什么我把这句话放在顶部,总是会报错, Set fso = CreateObject("Scripting.FileSystemObject")

Answer 2

你试试这个吧：
'首先，在工程里引用一下Microsoft Script Control这个控件，并把这个控件拖入你的Form窗口中，然后将下面的代码贴到你的Form代码中看看：Private Sub Form_Click()
Dim mycode As String
Dim myvalue As Stringmyvalue = "USE VBScript"mycode = "Function VBSFunc()" + vbCrLf
mycode = mycode + "msgbox " + Chr(34) + myvalue + Chr(34) + vbCrLf
mycode = mycode + "End Function"ScriptControl1.Language = "vbscript"   '选择script类型为VBS
ScriptControl1.AddCode (mycode)        '往控件中加入代码
ScriptControl1.Eval ("VBSFunc()")      '执行代码里的函数End Sub

Answer 3

可以引用Microsoft Script Control解决为什么不改成vb程序呢，vbs-vb应该没什么问题吧

Answer 4

//为什么我把这句话放在顶部,总是会报错, //Set fso = CreateObject("Scripting.FileSystemObject")放到哪里了？不能在通用 声明部分进行
Set fso = CreateObject("Scripting.FileSystemObject")
这种形式的绑定（会提示无效的外部过程）
要在事件的调用中进行绑定如果需要在通用声明部分绑定的话
可以引用Microsoft Scripting Runtime（FSO）对象（SCRRUN.DLL）
然后在通用声明部分写：
Dim fso As New FileSystemObject