open TEST,$path."\\".$item && 
do{-d TEST ? fillQueryBox($path."\\".$item,$qBox) : $cBox->insert('end',$item);
close TEST;   
last CLICK_OPTION;};