网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

如何在一个vbs中包含其他vbs文件-创新互联

本篇内容介绍了“如何在一个vbs中包含其他vbs文件”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!

成都创新互联电话联系:028-86922220,为您提供成都网站建设网页设计及定制高端网站建设服务,成都创新互联网页制作领域十余年,包括阳台护栏等多个行业拥有丰富的网站维护经验,选择成都创新互联,为企业保驾护航!

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中包含其他vbs文件”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站,小编将为大家输出更多高质量的实用文章!


当前题目:如何在一个vbs中包含其他vbs文件-创新互联
网页链接:http://bjjierui.cn/article/epceg.html

其他资讯