XYplorer Beta Club

Code: Select all

	End ("<curitem>"==""),  "No file(s) selected!"
	load report('moveto "E:\Some path\" . 
	substr("{Basename}", 0, 1), :list; ', 1),,s;

Code: Select all

E01.jpg -> Some path\E\
F01.jpg -> Some path\F\
G01.jpg -> Some path\G\
H01.jpg -> Some path\H
I01.jpg -> Some path\I

Code: Select all

"Move files to Initial SubFolder"

  //Get list with fullnames of selected files:
  $FILES = report("{FullName}<crlf>", 1);

  $NewPathMain = "E:\Some path";

  $LOOP = 1;
  while(1)
  {
    //For Each File in Files Do:
    $file = gettoken($FILES, $LOOP, "<crlf>");
    if ($file==""){break;}
    
     //For the initial SubFolder we need the file name:
     $NamePart = regexreplace($file, ".+\\(.+)", "$1");

     //For the initial SubFolder we need first sign of the file name:
     $SubFolder = substr($NamePart, 0, 1);

     //If first sign is an lower-case char make it upper-case:
     if(asc($SubFolder)>=97 && <= 122){$SubFolder = chr(asc($SubFolder)-32);}

     //Build up the full path to the initial SubFolder:
     $NewPath = $NewPathMain\$SubFolder;

     //If the initial SubFolder does not exist create it:
     if (exists($NewPath)!=2){new $NewPath, dir;}

     //Attention! Ready! Action:
     moveto $NewPath, $file;
   
  incr $LOOP; //NEXT iteration
  }

Code: Select all

End (getinfo("CountSelected")==0),  "No file(s) selected!";
   load report('moveto "E:\Test\" .
   substr("{Basename}", 0, 1), "{Fullname}"; ', 1),,s;