_src/_replica/2.RunPartCmp/PartsMaster/Master_of_vbs_inc_head_2.txt

   1   '--- end of parameters for vbslib include ---------------------------------\r
   2   Dim  g_f, g_include_path, i : Set  g_fs = CreateObject( "Scripting.FileSystemObject" )\r
   3   Set  g_sh = WScript.CreateObject("WScript.Shell") : g_f = g_sh.CurrentDirectory\r
   4   g_sh.CurrentDirectory = g_fs.GetParentFolderName( WScript.ScriptFullName )\r
   5   For i = 20 To 1 Step -1 : If g_fs.FileExists(g_vbslib_path) Then  Exit For\r
   6   g_vbslib_path = "..\" + g_vbslib_path  : Next\r
   7   If g_fs.FileExists(g_vbslib_path) Then  g_vbslib_path = g_fs.GetAbsolutePathName( g_vbslib_path )\r
   8   g_sh.CurrentDirectory = g_f\r
   9   If i=0 Then WScript.Echo "Not found " + g_fs.GetFileName( g_vbslib_path ) +vbCR+vbLF+ "Let's download vbslib "&g_Vers.Item("vbslib")&" and Copy vbslib folder." : WScript.Quit 1\r
  10   Set g_f = g_fs.OpenTextFile( g_vbslib_path ): Execute g_f.ReadAll() : g_f = Empty\r
  11   If ResumePush Then  On Error Resume Next\r
  12     If IsDefined("main2") Then  Set g_f=CreateObject("Scripting.Dictionary") :_\r
  13       Set g_AppKey = new AppKeyClass : main2  g_f, g_AppKey.SetKey( new AppKeyClass )  Else _\r
  14       Set g_AppKey = new AppKeyClass : g_AppKey.SetKey( new AppKeyClass ) : main\r
  15   g_f = Empty : ResumePop : On Error GoTo 0\r
  16 End If\r
  17 '--- end of vbslib include --------------------------------------------------------\r