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/