|
<PACKAGE>
<JOB>
<RUNTIME>
<DESCRIPTION>
*******************************************************************
プログラム名 : SQLの窓開発バッチ
*******************************************************************
</DESCRIPTION>
<EXAMPLE>
引数無し
</EXAMPLE>
</RUNTIME>
<COMMENT>
************************************************************
オブジェクト定義
************************************************************
</COMMENT>
<OBJECT id="Lbox" progid="Lbox.BatchHelper" />
<OBJECT id="Outer" progid="Lbox.OuterDll" />
<OBJECT id="Ftp" progid="Lbox.Ftp" />
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<COMMENT>
************************************************************
カレントスクリプト
************************************************************
</COMMENT>
<SCRIPT language=VBScript>
if not Lbox.MsgOkCancel( "SQLの窓開発バッチを実行します" & vbCrLf & "よろしいですか?" ) then
Wscript.Quit
end if
'*****************************************
' WinOfSql.exe のコピー
'*****************************************
Src = "D:\WSC\WinOfSql\Release\WinOfSql.exe"
Dest = "C:\Program Files\WinOfSql\"
if Lbox.ShellCopy( Src, Dest ) then
Lbox.CopyToMemo( "★:" & Src & " のコピーに成功しました" & vbCrLf )
else
Lbox.CopyToMemo( Src & " のコピーに失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
end if
'*****************************************
' Lbox.dll のコピー
'*****************************************
Src = "D:\WSC\Lbox\ReleaseMinDependency\Lbox.dll"
Dest = "C:\Program Files\WinOfSql\Tool\parts\"
if Lbox.ShellCopy( Src, Dest ) then
Lbox.CopyToMemo( "★:" & Src & " のコピーに成功しました" & vbCrLf )
else
Lbox.CopyToMemo( Src & " のコピーに失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
end if
'*****************************************
' Lbox の圧縮
'*****************************************
Src = "F:\Lbox.lzh"
Dest = Lbox.FileList( "D:\WSC\Lbox", "*.*", 2 )
Dest = Replace( Dest, vbTab & """D:\WSC\Lbox\Lbox.ncb""", "" )
Ret = Outer.FreezeLzh( Src, Dest )
if Left( Ret, 6 ) = "ERROR:" then
Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
else
Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf )
Lbox.CopyToMemo( Dest & vbCrLf )
end if
'*****************************************
' WinOfSql_src.lzh の圧縮
'*****************************************
Src = "F:\WinOfSql_src.lzh"
Dest = Lbox.FileList( "D:\WSC\WinOfSql", "*.*", 2 )
Dest = Replace( Dest, vbTab & """D:\WSC\WinOfSql\WinOfSql.ncb""", "" )
Ret = Outer.FreezeLzh( Src, Dest )
if Left( Ret, 6 ) = "ERROR:" then
Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
else
Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf )
Lbox.CopyToMemo( Dest & vbCrLf )
end if
'*****************************************
' lightbox_src.lzh の圧縮
'*****************************************
Src = "F:\lightbox_src.lzh"
Dest = Lbox.FileList( "D:\WSC\MATERIAL\lightbox", "*.*", 2 )
Dest = Replace( Dest, vbTab & """D:\WSC\MATERIAL\lightbox\lightbox.ncb""", "" )
Ret = Outer.FreezeLzh( Src, Dest )
if Left( Ret, 6 ) = "ERROR:" then
Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
else
Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf )
Lbox.CopyToMemo( Dest & vbCrLf )
end if
'*****************************************
' WinOfSql.lzh の圧縮
'*****************************************
Src = "F:\WinOfSql.lzh"
Dest = "C:\Program Files\WinOfSql\WinOfSql.exe"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\EXCEL"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\HELP"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\MDB"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\MySQL"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\Oracle"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\Postgres"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\SQLServer"
Dest = Dest & vbTab & "C:\Program Files\WinOfSql\Tool"
Ret = Outer.FreezeLzh( Src, Dest )
if Left( Ret, 6 ) = "ERROR:" then
Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
else
Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf )
Lbox.CopyToMemo( Dest & vbCrLf )
end if
'*****************************************
' lightbox.lzh のダウンロード
'*****************************************
Src = "http://homepage2.nifty.com/lightbox/download/lightbox.lzh"
Dest = "C:\Documents and Settings\lightbox\My Documents\lightbox.lzh"
Ret = Lbox.HttpDownload( Src, Dest )
if Left( Ret, 2 ) = "OK" then
Lbox.CopyToMemo( "★:" & Src & " のダウンロードに成功しました" & vbCrLf )
else
Lbox.CopyToMemo( Src & " のダウンロードに失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
end if
'*****************************************
' lightbox.lzh の圧縮
'*****************************************
Src = "C:\Documents and Settings\lightbox\My Documents\lightbox.lzh"
Dest = "D:\WSC\MATERIAL\lightbox\Release\lightbox.h"
Dest = Dest & vbTab & "D:\WSC\MATERIAL\lightbox\Release\lightbox.lib"
Ret = Outer.FreezeLzh( Src, Dest )
if Left( Ret, 6 ) = "ERROR:" then
Lbox.CopyToMemo( Dest & " の圧縮に失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
else
Lbox.CopyToMemo( "★:" & Src & " の圧縮に成功しました" & vbCrLf )
Lbox.CopyToMemo( Dest & vbCrLf )
end if
'*****************************************
' lightbox.lzh のアップロード
'*****************************************
Src = "C:\Documents and Settings\lightbox\My Documents\lightbox.lzh"
Dest = "/homepage/download/lightbox.lzh"
Call Ftp.Connect( "サーバー", "ユーザー", "パスワード", true )
if Ftp.Upload( Dest, Src ) then
Lbox.CopyToMemo( "★:" & Src & " のアップロードに成功しました" & vbCrLf )
else
Lbox.CopyToMemo( Src & " のアップロードに失敗しました" & vbCrLf )
Lbox.CopyToMemo( "★★ エラーを確認して下さい" & vbCrLf )
Wscript.Quit
end if
Call Ftp.DisConnect()
Lbox.CopyToMemo( "★★ OK ★★" & vbCrLf )
</SCRIPT>
</JOB>
</PACKAGE>
| |