Here's a simple, fully native XY solution. Extracts selected files from zip to current path.Stef123 wrote:won't help my situation (I extract small subsets only, need to get a preview instead of dumping thousands of files on disk every time)
Code: Select all
$file = "<curitem>";
if getpathcomponent($file,ext) != 'zip' {end 1;}
$lst = inputselect("select files to extract",replace(zip_list($file),<tab>),,10,,450,500,"Extract Zip...");
text $lst;
foreach($itm,$lst){
if strpos($itm,"\")!=-1 {$path = getpathcomponent($itm,path);} else {$path = ''};
zip_extract($file,$path,$itm);
}