一个VBS脚本调用另一个VBS脚本

willian0200

看了通篇的讨论 长见识了  长知识了 谢谢大家分享

fish_yy

小南

WSC里用cstring，不然2003上会跳确认框

没有蛀牙

要include另一个vbs，可以这样写：
' Includes a file in the global namespace of the current script.
' The file can contain any VBScript source code.
' The path of the file name must be specified absolute (or
' relative to the current directory).
Private Sub IncludeFile(ByVal FileName)
    Dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    Const ForReading = 1
    Dim f: set f = fso.OpenTextFile(FileName,ForReading)
    Dim s: s = f.ReadAll()
    ExecuteGlobal s
End Sub

IncludeFile "CreateNode.vbs"

RayTM

按照第16楼链接的方法：
写一个脚本,
class classA
     public sub sub_output(str)
       MsgBox(str)
     end sub
end class
保存,"E:\aaa.vbs"
再写一个脚本,
Include "E:\bbb.vbs"
set a=new classA
str1="asdfasf"
a.sub_output(str1)
Sub Include(sInstFile)
   Dim oFSO, f, s
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set f = oFSO.OpenTextFile(sInstFile)
   s = f.ReadAll
   f.Close
   ExecuteGlobal s
End Sub
保存,"E:\bbb.vbs"
最后在QTP中运行bbb.vbs就可以了吧。

[ 本帖最后由 RayTM 于 2008-5-9 11:21 编辑 ]

xiatian831621

studying..

远野志贵

这资料真是及时啊，差点就因为这个小问题挂了。

wugecat

up

robinsgl

原帖由 mstiunicon 于 2008-4-29 01:10 发表


之前找了很久vbs文件互相调用的方法，都没找到。到后来还是使用了QTP的ExecuteFile函数才解决的。看了这个帖子后，才发现原来有这么多方式。

同感！

haiwa957

16楼给的连接的那篇文章很不错，我顶，我狂顶

rwxyxy

学习了，谢谢16楼的推荐；

zhengpeipei

路过

zhengpeipei

17800455

在VBScript中，可以用ExecuteGlobal语句来在一个脚本文件中加载另外一个脚本的函数，例如，假设需要加载的是脚本Test.vbs:
Function Test1
Msgbox "Test1"
End Function

那么可以在脚本ExecuteGlobal.vbs中按下面的方式加载并调用Test1函数:
Set fso = CreateObject("Scripting.FilesyStemObject")
Str = fso.OpenTextFile("Test.vbs", 1).ReadAll
ExecuteGlobal Str
Set fso = Nothing

Test1


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/Testing_is_ ... /01/19/5214523.aspx

ouyangxu

怎么我哪个总是报错

ExcuteGlobal s
这句的时候，总是报s错误