Need help to rewrite a simple script

[Setherial]

Hi there. I need some help to mod a script I took from the script forum.

The following script adds parent folder name to the selected files:
C:\ExampleFolder\File001.txt ---> C:\ExampleFolder\ExampleFolder - File001.txt

Code: Select all

setting "BackgroundFileOps", 0;
    $curBase = gettoken("<curpath>", -1, "\");
    foreach($file, "<get SelectedItemsPathNames |>") {
        $newName = $curBase . " - " . getpathcomponent($file, "file");
        renameitem($newName, $file, , "-01");
    }

I would like the script to do something like this:
C:\ExampleFolder\File001.txt ---> C:\ExampleFolder\File001 [ExampleFolder].txt

[highend]

Code: Select all

    setting "BackgroundFileOps", 0;
    foreach($item, "<get SelectedItemsPathNames |>") {
        $parent = replace(gpc($item, "parent"), ":");
        if (exists($item) == 2) { $newName = gettoken($item, -1, "\") . " [$parent]"; }
        else { $newName = gpc($item, "base") . " [$parent]." . gpc($item, "ext"); }
        renameitem($newName, $item, , "-01");
    }

[Setherial]

Code: Select all

    setting "BackgroundFileOps", 0;
    foreach($item, "<get SelectedItemsPathNames |>") {
        $parent = replace(gpc($item, "parent"), ":");
        if (exists($item) == 2) { $newName = gettoken($item, -1, "\") . " [$parent]"; }
        else { $newName = gpc($item, "base") . " [$parent]." . gpc($item, "ext"); }
        renameitem($newName, $item, , "-01");
    }

That was really quick, you're teh man!

it works like a charm, thank you!!!