'--- end of parameters for vbslib include ---------------------------------\r
Dim g_f, g_include_path, i : Set g_fs = CreateObject( "Scripting.FileSystemObject" )\r
- If g_fs.FileExists("setting.vbs") Then Set g_f = g_fs.OpenTextFile( "setting.vbs" ): Execute g_f.ReadAll()\r
- If not IsEmpty( WScript.Arguments.Named.Item("IncludeType") ) Then g_IncludeType = WScript.Arguments.Named.Item("IncludeType")\r
Set g_sh = WScript.CreateObject("WScript.Shell") : g_f = g_sh.CurrentDirectory\r
g_sh.CurrentDirectory = g_fs.GetParentFolderName( WScript.ScriptFullName )\r
- For i = 10 To 1 Step -1 : If g_fs.FileExists(g_vbslib_path) Then Exit For\r
+ For i = 20 To 1 Step -1 : If g_fs.FileExists(g_vbslib_path) Then Exit For\r
g_vbslib_path = "..\" + g_vbslib_path : Next\r
If g_fs.FileExists(g_vbslib_path) Then g_vbslib_path = g_fs.GetAbsolutePathName( g_vbslib_path )\r
g_sh.CurrentDirectory = g_f\r
- If i=0 Then WScript.Echo "Not found " + g_fs.GetFileName( g_vbslib_path ) +vbCR+vbLF+ "Check g_vbslib_path in " + WScript.ScriptName + " or setting.vbs" : WScript.Quit 1\r
+ 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
Set g_f = g_fs.OpenTextFile( g_vbslib_path ): Execute g_f.ReadAll() : g_f = Empty\r
If ResumePush Then On Error Resume Next\r
- main\r
- ResumePop : On Error GoTo 0\r
+ If IsDefined("main2") Then Set g_f=CreateObject("Scripting.Dictionary") :_\r
+ Set g_AppKey = new AppKeyClass : main2 g_f, g_AppKey.SetKey( new AppKeyClass ) Else _\r
+ Set g_AppKey = new AppKeyClass : g_AppKey.SetKey( new AppKeyClass ) : main\r
+ g_f = Empty : ResumePop : On Error GoTo 0\r
End If\r
'--- end of vbslib include --------------------------------------------------------\r