XYplorer Beta Club

Code: Select all

"_ZipForBackupX"
  $Items =<selitems |>; $Sel=get("CountSelected"); $items=;
  //$Root=<curpath>; 
  //Setting("BackgroundFileOps", 1);
  foreach($j,$Items,|){
    if (exists("$j")==2){
      $fold=listfolder("$j",,0,|);

      zip_add($j." +x.zip","$fold");

      $items=$items.$j.|;
    }
  }
  $c="Are you sure you want to Delete |this  $Sel  items";
  $conf=confirm("$c||Yes       = Delete With Recycle Bin|No        = Delete Without Recycle Bin|Cencel = Abort Delete Files","|",1,3);
  if($conf==2){sub _Abort; }
  else{
//     $pa=x; $Op="delete"; sub "_OpFastCopy";
    delete $conf,0,"$items";

    }
 // $Temp="E:\!XYplorerData\Data[7]\xxx.xys";
 //  WriteFile("$Temp",$items,"o");
 //  open $Temp,w;
  end(1==1);

Code: Select all

"_ZipForBackupX"
//  unset $Op,$pa,$items; perm $Op,$pa,$items;
  $emp="<xyscripts>\#bat\Empty Folder +x.zip.txt"; // just to make empty zip file
  $Items =<selitems |>; $Sel=get("CountSelected"); $items=; $cb=chr(34); // "
  $Root=<curpath>; $Dat=;
  $Type="Defult - ( 1/8 Folder Saiz ).$Sc|( 1/26 Folder Saiz ).$Sc - Like Small Folder saiz|( 1/18 Folder Saiz ).$Sc - Like Small Folder saiz|( 1/12 Folder Saiz ).$Sc - Like Small Folder saiz, video or software|( 1/8 Folder Saiz ).$Sc - Like Small Folder saiz, Video or Compressed Files|( 1/6 Folder Saiz ).$Sc - Like Video or Compressed Files|( 1/5 Folder Saiz ).$Sc - Like Video and Picture|( 1/4 Folder Saiz ).$Sc - Like Video and Picture|( 1/3 Folder Saiz ).$Sc - Like Picture and files|( 1/2 Folder Saiz ).$Sc - Like Picture and files|( 3/4 Folder Saiz ).$Sc  - To Many Small Files like txt|Not Use Waiting Times per Folder";
  $i=inputselect("Set Waiting Times per Folder in Milisecond<crlf>GB $Sc = 000000  /  MB $Sc = 000  /  KB $Sc = 0",$Type,,32+128,"0",700,450,"@iMenu.xys");
  if($i==0){status "Cencel ZIP Folder",,alert; end(1==1);}
  elseif($i==2){$i=26;}elseif($i==3){$i=18;}elseif($i==4){$i=12;}elseif($i==6){$i=6;
  }elseif($i==7){$i=5;}elseif($i==8){$i=4;}elseif($i==9){$i=3;}elseif($i==10){$i=2;
  }elseif($i==11){$i=1.32;}elseif($i==12){$i=x;}else{$i=8;}
//  $FastCopy="C:\Program Files\FastCopyx64\FastCopy.exe";
//  Openwith """$FastCopy"" /auto_close /cmd=delete";
  foreach($j,$Items,|){
    if (exists("$j")==2){ $Fn=gpc("$j","file"); $Zn=$j." +x.zip";
      $filelist=listfolder("$j",,0,"$cb $cb"); 
      if($filelist!=""){run """C:\Program Files\WinRAR\WinRAR.exe"" a -ep1 -ts -afzip -ibck -- ""$Zn"" ""$filelist""";
      $fsaiz=foldersize("$j","<b>");
      $Unit=regexreplace($fsaiz,"((\d|,)+)( |\.\d+ )(\w+)",$4);
      if($Unit=="GB"){$Sc=000000;}elseif($Unit=="MB"){$Sc=000;}elseif($Unit=="KB"){$Sc=0;}else{$Sc=;}
      if($i==x){ $milis=1;
      }else{$milis1=regexreplace($fsaiz,"((\d|,)+)( |\.\d+ )(\w+)",$1).$Sc;
        $milis1=replace($milis1,",","");
        $milis2=eval($milis1 / $i);
        $milis=floor($milis2);
      }
      $Dat=$Dat.$fsaiz~$Unit~$Sc~$i~$milis1~$milis2~$milis~$j.<crlf>;
      if($milis<1){$milis=1;}
      status "Wait = $milis, ZIP folder $Fn , saiz = $fsaiz",BF0000,progress;
      wait $milis;
      }else{zip_add("$Zn","$emp");}
      $items=$items.$j.|;
    }else{status "Not Folder selected",,alert;}
  }
  $Temp="E:\!XYplorerData\Data[7]\+x.zip log.xys";
  WriteFile("$Temp",$Dat.<crlf>,"a");
//   open $Temp,w;
  end(1==1);

Code: Select all

run """C:\Program Files\WinRAR\WinRAR.exe"" a -ep1 -ts -afzip -ibck -- ""$Zn"" ""$filelist""", <curpath>, 1;

Code: Select all

$Unit=regexreplace($fsaiz,"((\d|,)+)( |\.\d+ )(\w+)",$4);

Code: Select all

$Unit=regexreplace($fsaiz, "[^A-Z]+");

Code: Select all

Setting "BackgroundFileOps", 0;