Code: Select all
$SelectedItem = get("Item", i);
$ItemName = regexreplace("$SelectedItem", "(.*\\)(.*0530)(.*)(.....*)", "$2");
//$List = listfolder(, , , <crlf>);
//$List = formatlist($List, s, <crlf>);
$List = report("{fullname}<crlf>",0);
$P = "0";
$RenamePreview = "";
foreach($Item, $List, "<crlf>") {
$RenamePreview .= $ItemName . _ . $P<crlf>;
$P = $P+1;
}
rename l, $RenamePreview, p, $List;