3 ' vbs_inc.vbs of vbs_inc.vbs
\r
5 ' vbslib ver3.00 Sep.22, 2009
\r
6 ' Copyright (c) 2008-2009, T's-Neko at Sage Plaisir 21 (Japan)
\r
7 ' All rights reserved. Based on 3-clause BSD license.
\r
10 '// Set g_vbslib_path=(this script full path) before including this script.
\r
13 Dim g_vbslib_path, g_vbslib_folder
\r
14 Dim g_sh :If IsEmpty(g_sh) Then Set g_sh=WScript.CreateObject("WScript.Shell")
\r
15 Dim g_fs :If IsEmpty(g_fs) Then Set g_fs=CreateObject( "Scripting.FileSystemObject" )
\r
18 If IsEmpty(g_vbslib_path) Then _
\r
19 Err.Raise 1,,"vbs_inc needs other script using vbslib header"
\r
20 g_vbslib_folder = g_fs.GetParentFolderName( g_vbslib_path ) + "\"
\r
24 Const g_vbslib_default_ver = 2.0
\r
27 If IsEmpty( g_Vers ) Then _
\r
28 Set g_Vers = CreateObject("Scripting.Dictionary") : g_Vers.Add "vbslib", g_vbslib_default_ver
\r
29 If not g_Vers.Exists("vbslib") Then g_Vers.Add "vbslib", g_vbslib_default_ver
\r
32 If g_Vers.Item("vbslib") = 3.0 Then g_vbslib_path = g_vbslib_folder + "vbslib300\vbs_inc_300.vbs"
\r
33 If g_Vers.Item("vbslib") = 2.0 Then g_vbslib_path = g_vbslib_folder + "vbs_inc_200.vbs"
\r
34 If g_Vers.Item("vbslib") = 0.0 Then g_vbslib_path = g_vbslib_folder + "vbslib000\vbs_inc_000.vbs"
\r
35 If not g_fs.FileExists( g_vbslib_path ) Then Err.Raise 1,,"[ERROR] Not found " + g_vbslib_path
\r
38 Dim g_f : Set g_f = g_fs.OpenTextFile( g_vbslib_path )
\r
39 Execute g_f.ReadAll()
\r