_src/TestByFCBatAuto/TestScript/vbslib/vbs_inc.vbs

   1 Option Explicit \r
   2 \r
   3 ' vbs_inc.vbs of vbs_inc.vbs\r
   4 \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
   8 \r
   9 \r
  10 '// Set g_vbslib_path=(this script full path)  before including this script.\r
  11 \r
  12 \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
  16 \r
  17 \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
  21 \r
  22 \r
  23 Dim  g_Vers\r
  24 Const  g_vbslib_default_ver = 2.0\r
  25 \r
  26 \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
  30 \r
  31 \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
  36 \r
  37 \r
  38 Dim  g_f : Set g_f = g_fs.OpenTextFile( g_vbslib_path )\r
  39 Execute g_f.ReadAll()\r
  40 g_f = Empty\r