Files' Dates and Sizes Quick Comparison.
Posted: 05 Dec 2010 13:24
This one will just check for files on both panes, ignoring folder calculations.
It's a quick solution to fast compare one file on each panes against size, modification and creation dates.
If more than one file is selected in one of the panes it'll just compare and display their sizes in both "flexible" and "bytes" modes.
Suggested KS: SHIFT+Y.
It's a quick solution to fast compare one file on each panes against size, modification and creation dates.
If more than one file is selected in one of the panes it'll just compare and display their sizes in both "flexible" and "bytes" modes.
Suggested KS: SHIFT+Y.
Code: Select all
end (<xyver> < "9.70.0007"), "Sorry - this script requires XYplorer version 9.70.0007 or higher.<crlf>Click 'Ok' to exit.";
if (get("#800") == "0") {
#800;
}
$pa = "<get pane>";
$count = getinfo("CountSelected");
$counti = getinfo("CountSelected", "i");
IF ($count > 1) { sub "_MORE" }
IF ($counti > 1) { sub "_MORE" }
//Makes no sense since it has "_MORE"; otherwise, enable it to get it working with more than one file
//but be aware: it'll display respective dates on reports, too...
// end(getinfo("CountSelected") > 1), "No more than one file must be selected on current pane.";
// end(getinfo("CountSelected", "i") > 1), "No more than one file must be selected on opposite pane.";
end(getinfo("CountSelected") < 1), "At least one file must be selected on current pane.";
end(getinfo("CountSelected", "i") < 1), "At least one file must be selected on opposite pane.";
$a= report ("{Size RAW}+", 1); $t= $a; replace $t, $t, "-","0"; $t= eval ($t);
$res = formatbytes($t, "BB", -1);
$dc= report ("{created}", 1);
$dm= report ("{modified}", 1);
focus pi;
$pi = "<get pane i>";
$b= report ("{Size RAW}+", 1); $t2= $b; replace $t2, $t2, "-","0"; $t2= eval ($t2);
$res2 = formatbytes($t2, "BB", -1);
$dc2= report ("{created}", 1);
$dm2= report ("{modified}", 1);
focus pi;
$f = formatbytes($res, "flex", -1);
$f2 = formatbytes($res2, "flex", -1);
msg "Sizes are " . ("$res" Like "$res2"?:"***NOT***") . " identical!<crlf>Modified dates are " . ("$dm" Like "$dm2"?:"***NOT***") . " identical!<crlf>Created dates are " . ("$dc" Like "$dc2"?:"***NOT***") . " identical!<crlf>File sizes on pane $pa are: $res,<crlf> while in the pane $pi are $res2.<crlf>Flexible values:<crlf>$f, $dm (DM) and $dc (DC) on pane $pa,<crlf>$f2, $dm2 (DM) and $dc2 (DC) on pane $pi.<crlf><crlf>Please click 'OK' to copy this message on clipboard<crlf>or 'cancel' to simply shut it.<crlf><crlf>-Have a nice day!", 1, ;
copytext "Sizes are " . ("$res" Like "$res2"?:"***NOT***") . " identical!<crlf>Modified dates are " . ("$dm" Like "$dm2"?:"***NOT***") . " identical!<crlf>Created dates are " . ("$dc" Like "$dc2"?:"***NOT***") . " identical!<crlf>File sizes on pane $pa are: $res,<crlf> while in the pane $pi are $res2.<crlf>Flexible values:<crlf>$f, $dm (DM) and $dc (DC) on pane $pa,<crlf>$f2, $dm2 (DM) and $dc2 (DC) on pane $pi.<crlf><crlf>Please click 'OK' to copy this message on clipboard<crlf>or 'cancel' to simply shut it.<crlf><crlf>-Have a nice day!";
"_MORE"
end (<xyver> < "9.70.0007"), "Sorry - this script requires XYplorer version 9.70.0007 or higher.<crlf>Click 'Ok' to exit.";
if (get("#800") == "0") {
#800;
}
$pa = "<get pane>";
end(getinfo("CountSelected") < 1), "At least one file must be selected on current pane.";
end(getinfo("CountSelected", "i") < 1), "At least one file must be selected on opposite pane.";
$a= report ("{Size RAW}+", 1); $t= $a; replace $t, $t, "-","0"; $t= eval ($t);
$res = formatbytes($t, "BB", -1);
focus pi;
$pi = "<get pane i>";
$b= report ("{Size RAW}+", 1); $t2= $b; replace $t2, $t2, "-","0"; $t2= eval ($t2);
$res2 = formatbytes($t2, "BB", -1);
focus pi;
$f = formatbytes($res, "flex", -1);
$f2 = formatbytes($res2, "flex", -1);
msg "Sizes are " . ("$res" Like "$res2"?:"***NOT***") . " identical!<crlf>File sizes on pane $pa are: $res,<crlf> while in the pane $pi are $res2.<crlf>Flexible values:<crlf>$f on pane $pa,<crlf>$f2 on pane $pi.<crlf><crlf>Please click 'OK' to copy this message on clipboard<crlf>or 'cancel' to simply shut it.<crlf><crlf>-Have a nice day!", 1, ;
copytext "Sizes are " . ("$res" Like "$res2"?:"***NOT***") . " identical!<crlf>File sizes on pane $pa are: $res,<crlf> while in the pane $pi are $res2.<crlf>Flexible values:<crlf>$f on pane $pa,<crlf>$f2 on pane $pi.<crlf><crlf>Please click 'OK' to copy this message on clipboard<crlf>or 'cancel' to simply shut it.<crlf><crlf>-Have a nice day!";
end 1;
