XYplorer Beta Club

Code: Select all

//this is valid for only ONE selected item!
"Create Those Folders"

    //Ask user to prepend NAME to folder
    $name = input("Enter name of the folder","This will result in: 'NAME yyyy-mm-dd'; Empty for DATE only as name of the folder", "NAME",, chr(12));

    //Get Location of where Folders will be created: Use "<curpath>" instead of "C:\", if you prefer to start there.
    $dir=InputFolder("C:\", "Where would you like to create these folders?");

    //Get the list of selected items, folders or files:
    $LIST = Report("{modified yyyy-mm-dd}", 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\$Name$Folder, dir);
     
     //next iteration:
    incr $Loop;
    }