[[sleep.vbs]]
@DIV
Wscript.Sleep(5000)
@END


[[lha.vbs]]
@DIV
Set WshShell = CreateObject( "WScript.Shell" )
Set Fso = CreateObject( "Scripting.FileSystemObject" )

LhaPath = "_parts"
FileDate = Replace( Date(), "/", "" )
CurPath = WshShell.CurrentDirectory

Call lha32( "DB001", "database" )
Call lha32( "DB002", "database" )
Call lha32( "DB003", "database" )
Call lha32( "DB004", "database" )

Function lha32( target, location )

	LzhPath = CurPath & "\" & location & "\" & target & "_" & FileDate & ".lzh"
	FilePath = CurPath & "\" & location & "\" & target & ".dat"
	Call WshShell.Run( LhaPath & "\lha32.exe u """ & LzhPath & """ """ & FilePath & """", , True )

End Function
@END