我是靠谱客的博主 魁梧香菇,这篇文章主要介绍在一个vbs中包含其他vbs文件的方法,现在分享给大家,希望可以做个参考。

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文件内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(133)

评论列表共有 0 条评论

立即
投稿
返回
顶部