Version 4.00

[vbslib/main.git] / _src / Test / tools / T_VbsLibUpdater / ans / VbsLibHeader1_bak.vbs

diff --git a/_src/Test/tools/T_VbsLibUpdater/ans/VbsLibHeader1_bak.vbs b/_src/Test/tools/T_VbsLibUpdater/ans/VbsLibHeader1_bak.vbs
new file mode 100644 (file)
index 0000000..e46405d
--- /dev/null
+++ b/_src/Test/tools/T_VbsLibUpdater/ans/VbsLibHeader1_bak.vbs
@@ -0,0 +1,39 @@
+Option Explicit \r
+'--- start of lib include ------------------------------------------------------\r
+Dim  g_fs, g_f, g_vbslib, vbslib_folder, en, es\r
+If g_vbslib <> True Then\r
+  vbslib_folder = "..\vbslib" '*************\r
+  Set g_fs = CreateObject( "Scripting.FileSystemObject" )\r
+  On Error Resume Next : Set g_f = g_fs.OpenTextFile( vbslib_folder & "\vbslib.vbs" ) : en = Err.Number : On Error GoTo 0\r
+    If en=76 Or en=53 Then WScript.Echo "[ERROR] vbslib \82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\81i" & vbslib_folder & "\vbslib.vbs)" : WScript.Quit 1\r
+    If en <> 0 Then Err.Raise en\r
+  On Error Resume Next : Execute g_f.ReadAll() : en = Err.Number : es = Err.Description : On Error GoTo 0\r
+    If en = 1025 Then\r
+      WScript.Echo es & " in " & vbslib_folder & "\vbslib.vbs"\r
+      WScript.CreateObject("WScript.Shell").Run "wscript " & vbslib_folder & "\vbslib.vbs",1,False\r
+      WScript.Quit 1\r
+    End If\r
+    If en <> 0 Then Err.Raise en\r
+  g_f.Close\r
+  g_vbslib = True\r
+  On Error Resume Next\r
+  main  '*************\r
+  en = Err.Number : es = Err.Description : Err.Clear : On Error GoTo 0\r
+  If en <> 0 Then\r
+    echo "ERROR " & en & " " & es & vbCR & vbLF\r
+    WScript.Quit en\r
+  End If\r
+End If\r
+'--- end of lib include --------------------------------------------------------\r
+\r
+\r
+'********************************************************************************\r
+'  <<< [main] >>>\r
+'********************************************************************************\r
+Sub main()\r
+  ChgToCommandPrompt\r
+  echo "Hello vbslib!"\r
+  pause\r
+End Sub\r
+\r
+ \r