批量加载VBS

VBS1=VBS文件夹路径

Function ImportUtilFun(VBS1)
      Set fso = CreateObject("Scripting.FileSystemObject")                                                      '加载VBS1目录下的所有共享库函数的VBS文件
      Set UtilFolder=fso.GetFolder(VBS1)
   Set UtilFileCollection=UtilFolder.files
   For each UtilFile in UtilFileCollection
            Executefile UtilFile.path
   Next
   Set fso = nothing
End Function