XYplorer Beta Club

Code: Select all

"Create Those Folders"
  //Get Location of where Folders will be created.
  $dir=InputFolder("<curpath>", "Where would you like to create these folders?");
  //Generate and execute a script to create each new item.
  Load(Report("New('$dir\{Name}','dir');"),, "s");

Code: Select all

$items = getinfo("selecteditemsnames","?"); //list names of selected items with an "?" as delimiter
 $items = regexreplace( $items, '(.+).', "$1"); //drop last delim
  //msg $items;
 
 GoTo "C:\Temp\";                   // goto other location
 //GoTo inputfolder();              // prompt for folder

 while strlen($items)>0 {           // as long as there is any content
   $delimPos = strpos($items, "?"); // Get pos of delimiter
   IF ($delimPos=='-1'){            // If no delim anymore
      $folder = $items             
   }else{
      $folder =  substr($items,0,$delimPos); // first part of $items till delim
   }
   //msg $folder;
   new $folder, dir;   // create folder
   
   IF ($delimPos=='-1'){           // If no delim anymore
       $items =                    // emtpy the var
   }else{
       $items = substr($items, $delimPos +1); // fill var with rest of items only
       //msg $items;
    }
   }

Code: Select all

$items = getinfo("selecteditemsnames","|");
 	$Count = getinfo("countselected");

 	GoTo inputfolder("<curpath>"); // prompt for folder

 	$Loop=1;
 	while($Loop<=$Count)
 	{
 		$folder = gettoken($items, $Loop, "|");
  		new $folder, dir;   // create folder
	incr $Loop;
 	}

Code: Select all

"Create Those Folders"
  //Get Location of where Folders will be created.
  $dir=InputFolder("<curpath>", "Where would you like to create these folders?");
  //Generate and execute a script to create each new item.
  Load(Report("New('$dir\{Name}','dir');", 1),, "s");

Code: Select all

"Create Those Folders"
  //Get Location of where Folders will be created.
  $dir=InputFolder("<curpath>", "Where would you like to create these folders?");
  //Generate and execute a script to create each new item.
  Load(Report("New('$dir\{Name}','dir');", 1),, "s");

Code: Select all

"Create Those Folders"
    //Get Location of where Folders will be created:
    $dir=InputFolder("<curpath>", "Where would you like to create these folders?");

    //Get the list of selected items, folders or files:
    $LIST = Report("{Name}<crlf>", 1);

    //For Each Item in Items:
    $Loop = 1;
    while(1)
    {
      //Get next ITEM:
      $ITEM = gettoken($LIST, $Loop, "<crlf>");
      //If ITEM is nothing end this script:
      IF ($ITEM==""){break;}
 
      //Get the BASE of the item name, i.e. drop all after including the last dot:
      $Folder = regexreplace("$ITEM", "(.+)(\..+)","$1");
      
      //Create new item, here as folder:
      new($dir\$Folder, dir);
      
     //next iteration:
    incr $Loop;
    }

Code: Select all

"Create Those Folders"

    //Get the list of selected items, folders or files:
    $LIST = Report("{Name}<crlf>", 1);

    //For Each Item in Items:
    $Loop = 1;
    while(1)
    {
      //Get next ITEM:
      $ITEM = gettoken($LIST, $Loop, "<crlf>");
      //If ITEM is nothing end this script:
      IF ($ITEM==""){break;}

      //Get the BASE of the item name, i.e. drop all after including the last dot:
      $Folder = regexreplace("$ITEM", "(.+)(\..+)","$1");
     
      //Create new item, here as folder:
      new($dir\$Folder, dir);
     
     //next iteration:
    incr $Loop;
    }

Code: Select all

Base name ("BackupTEMP_0015", for instance)
Number of folders to be created ("X")

Code: Select all

Base name: ("BackupTEMP_", for instance)
Number of folders to be created: ("X")
Starting with: (0015)