XYplorer Beta Club

Code: Select all

$filelist = getinfo('SelectedItemsPathNames', '|'); //collect list of selected files
   
   //get one time the current path
   $file=gettoken($filelist, 1, "|");
   $Path = regexreplace($file, "(.+)\\.+", "$1");    
   

   // for each file from list DO smtg:
   $BatOutput = "";
   $count = 1;
   while(1)
   {
      $file=gettoken($filelist,$count,"|");
      if("$file"==""){break;}
      
      //split "path\file.ext"   into "file" and "ext":
      $Name = regexreplace($file, ".+\\(.+)\..*", "$1");
      $Exte = regexreplace($file, ".+\.(.*)", "$1");
      
      //compose new file name:
      $Output = $Name . "_backup_<date yyyymmdd>" . '.' . $Exte;

			
      // collect the output:
      $BatOutput = $BatOutput . $Output<crlf>;
      $count++;
   }

   // provide the output
   text $BatOutput;

Code: Select all

text  report("{basename}_backup_<date yyyymmdd>.{ext}"  . "<crlf>",1);

Code: Select all

 load report('copyitem "{Fullname}", "*_backup_<date yyyymmdd>.?"; ', 1),,s;

Code: Select all

::copyas "*_backup_<date yyyymmdd>.?";