"); exit; } //fileフォルダに移動する chdir("file"); //変数$keyを初期化する $key = ""; //変数$keyに前画面で指定されたファイル名を連結して格納する //ファイル名とファイル名の間は半角スペースを入れる for ($i=0;$i"; $key = $key . " " .$HTTP_POST_VARS["compck"][$i]; } //ファイル名を作成する //現在の西暦の年の下2桁頭ゼロ付き + 月の頭ゼロ付き + 日の頭ゼロ付き + //"-" + 時間の頭ゼロ付き + 分の頭ゼロ付き + 秒の頭ゼロ付き + "tar.gz" $fname = "bu".date(ymd)."-".date(his).".tar.gz"; //オブジェクトを作成する //new Archive_Tar(ファイル名,圧縮フラグ); //圧縮フラグTRUEはgzip圧縮をおこなう $tar = new Archive_Tar($fname, TRUE); //圧縮をおこなう $tar->create($key); //圧縮完了のメッセージを表示する print("
を圧縮しました。
"); print("ファイル名は " . $fname . "です。

"); //HTML文を出力　javascriptを使用して直前のページに戻るリンク print ("
戻る
"); /////////////////////////////////////////////////////////////////////////////////////////////// //PEARのTarを読み込む require_once("Tar.php"); //前画面で解凍対象のファイルが指定されているか //count関数を用いてチェックし、指定が無い場合は終了する if (count($HTTP_POST_VARS["compck"]) == 0) { print("解凍対象のファイルがありません"); print(""); exit; } //fileフォルダに移動する chdir("file"); //変数$keyに前画面で指定されたファイル名を格納する $key = $HTTP_POST_VARS["compck"]; //解凍先のフォルダ名を$fnameに格納する //フォルダ名は「ファイル名.tar.tz」より「.tar.tz」を取り除く //substr(文字列,開始位置,文字数）は文字列の開始位置から文字数分を取り出す関数 //strlen(文字列）は文字列の長さを返す関数 $fname = substr($key,0,strlen($key) - 7); //オブジェクトを作成する //new Archive_Tar(ファイル名,圧縮フラグ); //圧縮フラグTRUEはgzip解凍をおこなう $tar = new Archive_Tar($key, TRUE); //指定されたフォルダ内に解凍する $tar->extract("./" . $fname); //解凍完了のメッセージを表示する print($key . "を
" .$fname . "フォルダに解凍いたしました。
"); //HTML文を出力　javascriptを使用して直前のページに戻るリンク print ("
戻る
"); ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ?>