vbscript自定义import函数

最新推荐文章于 2023-08-02 22:27:41 发布

yanzilee

最新推荐文章于 2023-08-02 22:27:41 发布

阅读量390

点赞数

CC 4.0 BY-SA版权

分类专栏：自动化测试

本文链接：https://blog.youkuaiyun.com/yanzilee/article/details/84184085

自动化测试专栏收录该内容

24 篇文章

订阅专栏

本文介绍了一种在VBScript中实现文件导入的方法。通过自定义SubImport过程，可以读取指定文件的内容并执行。该过程利用了WScript.Shell和Scripting.FileSystemObject组件来处理路径和文件读取。

vbscript本身不提供impot功能，需要自定义

Sub Import(strFile)
Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell")
Dim objFs : Set objFs = CreateObject("Scripting.FileSystemObject")
strFile = WshShell.ExpandEnvironmentStrings(strFile)
strFile = objFs.GetAbsolutePathName(strFile)
Dim objFile : Set objFile = objFs.OpenTextFile(strFile)
strCode = objFile.ReadAll
objFile.Close
ExecuteGlobal strCode
End Sub

参考： http://gazeek.com/coding/importing-vbs-files-in-your-vbscript-project/