ΨΨΨ　KFを語ろう Part1 ΨΨΨ

//=========================================================================================
//内　容：マークファイルの圧縮ファイルを反対ディレクトリにそのファイル名のフォルダを作成して解凍する
//引　数：なし
//戻り値：なし
//=========================================================================================
void ExtractAndMakeFolder()
{
str $markFile = $M;
int $markCount = GetMark(0);
int $i;
for($i=0; $i<$markCount ; $i=$i+1) {
str $file = GetMarkPos($markFile, $i);// 処理ファイル名
str $ext = $file:e;// 処理ファイル名の拡張子
// 反対パスに、ファイル名でフォルダ作成
str $make_dir_name = $O + "\" + $file:r;
MakeDirEx($make_dir_name);
// そのフォルダ内に解凍
SetWorkDir($make_dir_name + "\" );
Unpack($file);
// Information($file);// デバッグ用に解凍先表示。
}
// 反対パスを読み直し
ReloadOpp();
// マーク解除
ClearMark();
}