出来るのだASP Q&A掲示板(過去LOG)
訪問数 52046
昨日 889
今日 776 【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。 |
![]() ![]() ![]() ![]() ![]() |
[4179] Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について |
投稿者:ASP見習い人さん 2004/03/22 17:56:01 |
いつも大変お世話になっております。 おかげさまで、BASP21を使ってアーカイブ処理をコマンドで実行することができましたが、一度サーバ上で処理が完了した後、2回目に同じ処理を起動すると、圧縮処理が起動しません。 原因をいろいろ調べてみましたが、なぜかBASP21かIISのファイルが壊れてしまうようです。 しかし、その原因もよくわかりません。 BASP21とIISを再度インストールしてみましたが、上記の現象がおきてしまいます。 お手数ですが、対処方法等をご教授お願い致します。 −以上です− > こんにちは。 > 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 > > > > %> |
![]() ![]() |
![]() ![]() ![]() ![]() ![]() |
TreeBBS For ASP V.0.1.3 |