XYplorer Beta Club

Code: Select all

H:\Axis\Parking\grabs
I:\Axis\Shop\grabs

Code: Select all

    // Tag weekdays in the NVR root folder
    e|load "cea\Changing locations\After painting the file list\NVR tagging.xys";
    
    // Delete item(s) in specific root folders
    e|load "cea\Changing locations\After painting the file list\Delete NVR items.xys";

Code: Select all

    $roots = <<<>>>
H:\Axis\Parking\grabs
I:\Axis\Shop\grabs
    >>>;

    $delAfter = 31; // Day value


    setting "BackgroundFileOps", 0;

    $curPath = get("path");
    if ($delAfter < 1) { end true; }
    foreach($root, $roots, <crlf>, "e") {
        if ($curPath != $root) { continue; }

        $tooOld = quicksearch("ageC: >= $delAfter d /f", $curPath);
        if ($tooOld) { delete 0, 0, $tooOld; }
    }

Code: Select all

    $roots = <<<>>>
H:\Axis\Parking\grabs
I:\Axis\Shop\grabs
    >>>;

    $delAfter = "12 h"; // Set the first part to 0 to disable deletion!


    setting "BackgroundFileOps", 0;

    $curPath  = get("path");
    $delAfter = trim($delAfter);
    $value    = regexmatches($delAfter, "^\d+");
    $type     = regexmatches($delAfter, "[a-z]$");
    if ($value < 1) { end true; }
    foreach($root, $roots, <crlf>, "e") {
        if ($curPath != $root) { continue; }

        $tooOld = quicksearch("ageC: >= $value $type /f", $curPath);
        if ($tooOld) { delete 0, 0, $tooOld; }
    }

Code: Select all

y = years
m = months
w = weeks
d = days
h = hours

Code: Select all

    $roots = <<<>>>
G:\Axis\Driveway\grabs
G:\Axis\Front Door\grabs
G:\Axis\Side yard\grabs
G:\Axis\Scaffold\grabs
G:\Axis\Gas Meter\grabs
G:\Axis\Backyard\grabs
H:\Axis\Red Door\grabs
H:\Axis\Garage\grabs
H:\Axis\Parking\grabs
H:\Axis\Fire Exit\grabs
I:\Axis\Foyer\grabs
I:\Axis\Shop\grabs
    >>>;

    $delAfter = "12 h"; // Set the first part to 0 to disable deletion!


    setting "BackgroundFileOps", 0;

    // Allow deleting in normal paths and virtual folders
    $path  = get("path");
    $value = regexmatches(trim($delAfter), "^\d+");
    $type  = regexmatches(trim($delAfter), "[a-z]$");
    if ($value < 1) { end true; }

    $isVi = (regexmatches($path, "^vi:")) ? true : false;
    foreach($root, $roots, <crlf>, "e") {
        $dstPath = $path;

        // Virtual folder, e.g.: vi:D:\Axis\Parking\grabs\*|T:\Axis\Shop\grabs\*
        if ($isVi) {
            $escaped = regexreplace($root, "([\\^$.+()\[{])", "\$1");
            if (!regexmatches($path, $escaped)) { continue; }
            $dstPath = $root;

        // Standard path, e.g.: D:\Axis\Parking\grabs
        } else {
            if ($path != $root) { continue; }
        }

        $tooOld = quicksearch("ageC: >= $value $type /f", $dstPath);
        if ($tooOld) { delete 0, 0, $tooOld; }
    }