<%
'
%>
<%
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("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("ダウンロード後このウィンドウを閉じてください
" & 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 & "
" & 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("")
' Response.Redirect(FBackupTemp & "/" & FileName)
End Sub
%>