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

つうことで、こっちもアーカイブ関係のマクロを披露。
単独では機能に割り当てても使いでのない関数だけど、
>>33 がやろうとしてるような関数に応用すればぐっと可能性が。
（わかるよね？）

//=========================================================================================
//カーソル上の圧縮ファイルがディレクトリつきで圧縮されているか否かを確認
//引　数：
//戻り値：ディレクトリつき = 1：なし = 0
//=========================================================================================
int IsPackedByDir()
{
int $dr = 0;
str $nowdir = "";
$nowdir = $C;
VirtualDir();
if ((GetFileCount(0) == 0) & (GetDirectoryCount(0) == 2)) {
$dr = 1;
}
ChangeDir($nowdir);
RestoreCursor();
return $dr;
}