在一个vbs中包含其他vbs文件的方法
更新时间：2007年03月05日 00:00:00 作者：
asp中 include file 包含其他文件
vbs中
Option Explicit
On Error Resume Next
Sub include(vbs)
Dim fso : Set fso = CreateObject("scripting.FileSystemObject")
Dim p : p = Split(Wscript.ScriptFullName,"\")
p(UBound(p)) = vbs
p = Join(p,"\")
Dim f : Set f = fso.OpenTextFile(p)
Execute f.ReadAll()
' ExecuteGlobal f.ReadAll()
f.Close()
Set f = Nothing
Set fso = Nothing
' Wscript.Echo(p)
End Sub
include("1.vbs")
include("2.vbs")
'If Err Then
' Wscript.Echo(Err.description)
' Wscript.Quit()
'End If
Wscript.Echo(a+b)
1.vbs
a = 3
2.vbs
b = 4
vbs中
复制代码 代码如下:
Option Explicit
On Error Resume Next
Sub include(vbs)
Dim fso : Set fso = CreateObject("scripting.FileSystemObject")
Dim p : p = Split(Wscript.ScriptFullName,"\")
p(UBound(p)) = vbs
p = Join(p,"\")
Dim f : Set f = fso.OpenTextFile(p)
Execute f.ReadAll()
' ExecuteGlobal f.ReadAll()
f.Close()
Set f = Nothing
Set fso = Nothing
' Wscript.Echo(p)
End Sub
include("1.vbs")
include("2.vbs")
'If Err Then
' Wscript.Echo(Err.description)
' Wscript.Quit()
'End If
Wscript.Echo(a+b)
1.vbs
a = 3
2.vbs
b = 4
相关文章
用vbs+wmi实现获取电脑硬件信息的代码，真的不错，方便查看系统硬件信息2008-06-06
vbscript Split函数用法详解(字符串转数组函数)
本文详细介绍了vbscript中split函数的用法，有关split函数的一些实例，vbscript中split函数的语法介绍，有需要的朋友参考下2014-05-05
vbscript本身没有include这样包含其他vbs文件的支持，在asp或html页面里可以用<script ...这样来包含一个vbs文件，如果是直接运行的vbs脚本，就只有用其他办法来代替这个功能了。2009-02-02
VBS教程：函数-Sin 函数...2006-11-11
有时候服务器为了安全只允许访问的端口加到TCP/IP筛选里面，其它的端口将无法访问。这里的代码就是为了这样的功能实现。2010-04-04
VBS教程：函数-数学函数...2006-11-11
脚本编程3 关于文件的读写...2007-02-02
VBS教程：方法-Delete 方法...2006-11-11
利用VBS修改二进制文件HEX数据。第一个参数为原文件，第二个参数为修改后的文件，第三个参数为原HEX值，第四个参数为修改后的HEX值2013-07-07
VBS控制Excel常见方法，需要的朋友可以参考下。2009-11-11
最新评论