出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[4172] Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について
投稿者：ASP見習い人さん 2004/03/19 13:03:53
こんにちは。
Execute()メソッドのコマンド文字列で、パイプ("|")を
アンド("&&")に直してから実行すると、うまく動きました。
お騒がせしてすいませんでした。
−以上です−

> いつもお世話になっております。
>
> 複数の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 ＹａｓＮｅｔ