<!-- #include virtual="/sj4web/include.asp" -->

<%
'<!--
'################################################
'	名称	:演習データ待避
'	作成日:2002/12/10
'	作成者:徳田
'	目的 :演習データ待避処理を実行する。
'	概要	:
'	<<表示>>
'	・なし
'
'################################################
'-->
%>
<%

main()

Sub main()

	Dim Query, Content
	Dim BackUpPath, EnshuFolder, DateFolder
	Dim Target
	Target = Request("Target")

	BackUpPath = GetBackupPath()
	EnshuFolder = Target
	DateFolder = Request("DateFolder")


	Dim bobj, command, stdout, rc
	Set bobj = Server.CreateObject("basp21")  

	Dim Gakomei, FileName
	Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.EOF Or Content.EOF) Then
		Gakomei = Content.Fields("ユーザー名")
	End If
		
	FileName = Gakomei & "-" & EnshuFolder & "-" & DateFolder & ".lzh"

	Response.Write("<script language=""JScript"" src=""/sj4web/include.js""></script>" & vbCrLf)
	Response.Write("<script language=""JScript"" src=""/sj4web/includesj.js""></script>" & vbCrLf)
	Response.Write("<script language=""JScript.Encode"" src=""/sj4web/include_enc.js""></script>" & vbCrLf)
	Response.Write("<script language=""JScript.Encode"" src=""/sj4web/includesj_enc.js""></script>" & vbCrLf)

	Response.Write("<body onLoad=""tblbtn('" & FBackupTemp & "/" & FileName & "');"">" & vbCrLf)
	Response.Write("ダウンロード後このウィンドウを閉じてください<br><br><br><br><br>" & vbCrLf)

	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")

	'''DeleteFile はファイルが存在しないとエラーになるので、Resume Next をしています。
	On Error Resume Next
	fso.DeleteFile(BackUpPath & "\" & FileName)
	On Error GoTo 0
	Response.Write("del " & BackUpPath & "\" & FileName & "<br>" & vbCrLf)

'	ExecCmd("cmd.exe /c del """ & BackUpPath & "\" & FileName & """")

	command = Server.MapPath("/sj4web/binx/unlha.exe") & " a -r1 -a1 -jp1 -w""" & BackUpPath & """ """ & BackUpPath & "\" & FileName & """ """ & BackUpPath & "\" & EnshuFolder & "\" & DateFolder & "\*.csv"""
	rc = ExecCmd(command)

	command = Server.MapPath("/sj4web/binx/unlha.exe") & " a -r1 -a1 -jp1 -w""" & BackUpPath & """ """ & Server.MapPath(FBackupTemp) & "\" & FileName & """ """ & BackUpPath & "\" & EnshuFolder & "\" & DateFolder & "\*.csv"""
	rc = ExecCmd(command)


'	tmp = fso.CopyFile(BackUpPath & "\" & FileName, Server.MapPath(FBackupTemp) & "\" & FileName)
'	Response.Write("copy """ & BackUpPath & "\" & FileName & """ """ & Server.MapPath(FBackupTemp) & "\" & FileName & """")
'	command = "cmd.exe /c copy """ & BackUpPath & "\" & FileName & """ """ & Server.MapPath(FBackupTemp) & "\" & FileName & """"
'	rc = ExecCmd(command)


	Response.Write(FBackupTemp & "/" & FileName)
	Response.Write("</body>")
'	Response.Redirect(FBackupTemp & "/" & FileName)
End Sub

%>