XYplorer Beta Club

Code: Select all

 
  //to be sure, set focus explicitly to list and current active pane:
  focus;

  //note: this script works only for one folder on each run:
  end (getinfo("CountSelected")>1), "Please select ONE folder only, script will end now";

  //now check if selected item is an FOLDER or not:
  $IsFolder = report("{Dir Yes|No|Drive}",1);
  //if the item isn't an folder cancel the whole script:
  end ("$IsFolder"!="Yes"), "He!, you did not really have select an FOLDER, script will end now";

  //store name of selected folder into an variable named $curr:
  $curr = <curitem>; 

  //msg to ask the user if he really wants this action:
  // (When you press "Cancel", the script execution will end)
  msg "Do you really want to prune<crlf>$curr ?<crlf><crlf>Click OK to prune now.",1;

  //go inside that selected folder:
  goto $curr; 

  //select items:
  //sel f;  //means: Select all files (no folders). 
  //sel a;  //means: Select all items in there (files and folders)
    sel a; 

  
  /* disable optional function
  //Rename items with parent folder name first before moving?:
  $ren = confirm("Rename items with parent folder name first?");
  IF ($ren==1){
  $files = gettoken("SelectedItemsNames", "|");
  rename b, '<curfolder>_*', $files; 
  }
  */


  //move all selected one level up to parent folder:
  moveto ".."; 
  
  //go up one level to parent:  (is not needed, XY goes to parent at its own on deleting $curr)
  //goto "<curpath>\.."; 
  
  //delete the above selected folder $curr:
  //delete [recycle=1], [confirm], [itemlist] - just the syntax as reverence 
  delete 1,1, $curr; 

Code: Select all

//move contents of each selected dir up one level
 foreach($token, <get selecteditemspathnames |>) {
   moveto "<curpath>", "$token\*.*";
 }

Code: Select all

foreach($token, <get selecteditemspathnames |>,,, 'Nothing selected') {
   moveto "<curpath>", "$token\*.*";
 }

Code: Select all

help('idh_scripting.htm#idh_scripting_foreachloops');