Report Files of a Given Length.

[SkyFrontier]

Code: Select all

   input $v, "Please enter the length of files to be searched (default value is max. allowed by NTFS):", "255";
   #263; //all items on a branch
   sortby("len", "d");
   focus;
   selfilter "$v", , "len";
//   selfilter "> 255", , "len";
   focus; //Without this only one focused item is returned
   $l= get("SelectedItemsNames", "<crlf>");//Get names of Selected items
   #1048; //focus first selected
   echo "Items with lenght $v:<crlf>$l";
   copytext $l;
   status "List ready on clipboard, too!";

-any ideas on how to get the "selfilter "> 255", , "len";" effect?

[admin]

#263; ? Why not simply search by length?

Code: Select all

?len: > 260

[SkyFrontier]

#263; ? Why not simply search by length?

Code: Select all

   input $v, "Plz enter the min. length of files to be searched (default value is max. allowed by NTFS):", "255";
   $p = <curpath>;
   copytext "$p?len: > $v";
   focus a;
   sendkeys "^{v}";
   sendkeys"{enter}";
   focus;
   #250;
   $l= get("SelectedItemsNames", "<crlf>");
//   #1048; //focus first selected
   echo "Items with lenght greater than $v:<crlf>$l";
   copytext $l;
   status "List ready on clipboard, too!";

/*
//FINAL - one liner:
   input $v, "Plz enter the min. length of files to be searched (default value is max. allowed by NTFS):", "255"; $p = <curpath>; copytext "$p?len: > $v"; focus a; sendkeys "^{v}"; sendkeys"{enter}"; focus; #250; $l= get("SelectedItemsNames", "<crlf>"); echo "Items with lenght greater than $v:<crlf>$l"; copytext $l; status "List ready on clipboard, too!";

*/

GUI-driven = avoiding unnecessary typing.

[admin]

sendkeys is not supported officially. I could remove it at any time without warning. Please do not publish scripts using non-supported stuff.