出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
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]
[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

%>
[4171] Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について
投稿者：Lightningさん 2004/03/19 8:51:03
Executeしている内容をResponse.writeなんかで表示してみてください。
多分、そこがおかしいのだと思うんですけど・・・

ちゃんと試した上でのコメントではないので間違ってるかも、ですが
[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
>
> %>
[4179] Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について
投稿者：ASP見習い人さん 2004/03/22 17:56:01
いつも大変お世話になっております。
おかげさまで、BASP21を使ってアーカイブ処理をコマンドで実行することができましたが、一度サーバ上で処理が完了した後、２回目に同じ処理を起動すると、圧縮処理が起動しません。
原因をいろいろ調べてみましたが、なぜか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
> >
> > %>
[4184] Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について
投稿者：YasNet(管理人)さん 2004/03/23 9:14:19
こんにちは　YasNet(管理人)です。

一度実行するとず〜っと出来ないって事？でしょうか
もし、再起動すると解決するならば、オブジェクトの開放が出来ていないだけではないでしょうか

使用しているオブジェクトをNothingしましょう。

それでは　失礼致します。
[4186] Re:BASP21とLHAコマンドで自己解凍形式の書庫を作成する処理について
投稿者：ASP見習い人さん 2004/03/23 10:57:29
いつもお世話になっております。
ASP見習い人です。

> こんにちは　YasNet(管理人)です。
>
> 一度実行するとず〜っと出来ないって事？でしょうか

はい、そんな感じです。

> もし、再起動すると解決するならば、オブジェクトの開放が出
> 来ていないだけではないでしょうか

多分それも原因だと思います。

上記の内容と、「既存の圧縮ファイルを削除してから圧縮ファイルを新規に作成する」という処理手順に修正したら、安定して動作するようになりました。
ご教授ありがとうございました。

−以上です−

> こんにちは　YasNet(管理人)です。
>
> 一度実行するとず〜っと出来ないって事？でしょうか
> もし、再起動すると解決するならば、オブジェクトの開放が出来ていないだけではないでしょうか
>
> 使用しているオブジェクトをNothingしましょう。
>
> それでは　失礼致します。
>

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