出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[4168] BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について
投稿者：ASP見習い人さん 2004/03/18 11:42:38
いつもお世話になっております。

複数のEXCELファイルを圧縮して自己解凍形式に変換する処理の
サンプルを作成し、実行してみましたが、なぜか全半のEXCELファイルを圧縮してLZHファイルを作る処理しか実行されません。
また、個別に後半の「LZHファイルから自己解凍形式のファイルを作る処理」を書いて実行してみましたが、なぜか変換されません。
ちなみに、コマンドプロンプトで"C:\lha\lha.exe s C:\Inetpub\wwwroot\ArcDL\XLS_DAT\XLS_Test"を手動入力で実行させた場合は、正常に変換されました。
お手数ですが、原因及び対処策などについて、どなたかご教授お願い致します。

<%
''********************************************************
'' 複数のEXCELファイルを圧縮してから
'' ダウンロードする処理
''******************************************************

Dim rc
Dim CNST_Path
Dim CNST_CmdPath

CNST_Path = "C:\Inetpub\wwwroot\ArcDL\XLS_DAT\"
CNST_CmdPath = "C:\WINNT\system32\"

''---- EXCELファイルを圧縮して自己解凍形式 に変換 -----
Set bobj = Server.CreateObject("basp21")
rc = bobj.Execute(CNST_CmdPath & "cmd.exe /c C:\LHA\lha.exe a " & _
CNST_Path & "XLS_Test " & _
CNST_Path & "*.xls | " & _
"C:\LHA\lha.exe s " & _
CNST_Path & "XLS_Test",1,stdout)

With Response
.Redirect("./DL.html")
.End
End With

%>
BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について 　 ASP見習い人さん [2004/03/18 11:42:38] [4168]
　 Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について 　 Lightningさん [2004/03/19 8:51:03] [4171]
　 Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について 　 ASP見習い人さん [2004/03/19 13:03:53] [4172]
　 　 Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について 　 ASP見習い人さん [2004/03/22 17:56:01] [4179]
　 　 　 Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について 　 YasNet(管理人)さん [2004/03/23 9:14:19] [4184]
　 　 　 　 Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について 　 ASP見習い人さん [2004/03/23 10:57:29] [4186]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ