rename files belong to directories
Posted: 07 Dec 2020 14:09
Hello everyone, I want to add the directory name to the name of the files. see the attached example.
cordially
cordially
Forum for XYplorer Users and Developers
https://www.xyplorer.com/xyfc/
Code: Select all
$items = <get selecteditemspathnames <crlf>>;
foreach($item, $items, <crlf>, "e") {
renameitem(gpc($item, "base") . " [" . gpc($item, "component", -2) . "]", $item);
}
Code: Select all
$folders = <get selecteditemspathnames <crlf>>;
foreach($folder, $folders, <crlf>, "e") {
if (exists($folder) != 2) { continue; }
$base = gpc($folder, "component", -1);
$files = listfolder($folder, , 1, <crlf>);
foreach($file, $files, <crlf>, "e") {
renameitem($base . " - " . gpc($file, "file"), $file);
}
}