Find # of Items in folders

[armsys]

How to list folders which contains only, say, 5, items?
Thanks in advance.

[highend]

No time to make this more efficient atm...

Code: Select all

    $limitFiles = 5;
    $result = "";
    foreach($folder, quicksearch("* /d", "<curpath>", "|")) {
        $files = quicksearch("* /f", $folder);
        if (gettoken($files, "count", "<crlf>") == $limitFiles) {
            $result = $result . $folder . "<crlf>";
        }
    }
    if ($result) {
        text "Folder(s) with more than " . $limitFiles . " file(s):<crlf 2>". $result;
    } else {
        status "No appropriate folders found...", "8B4513", "stop";
    }

[armsys]

Hi highend,
Thanks a million for your quick script.

[armsys]

Highend's script refuses to work with an error msg:
The current script appears to be recursive.
The stack size is 0.

Is there a simple way to find all folders containing only 5 files thru the Find File tab (F12)?

[highend]

I let that script run on 6709 folders, 37092 files, 85,2 GB of data and didn't get a recursion warning...

Anyway, try this.

Code: Select all

    $limitFiles = 5;

    setting "AllowRecursion", 1;
    $folders = quicksearch("* /d", "<curpath>", "|");
    $result = "";
    foreach($folder, $folders) {
        $files = quicksearch("* /f", $folder);
        if (gettoken($files, "count", "<crlf>") == $limitFiles) {
            $result = $result . $folder . "<crlf>";
        }
    }
    if ($result) {
        text "Folder(s) with more than " . $limitFiles . " file(s):<crlf 2>". $result;
    } else {
        status "No appropriate folders found...", "8B4513", "stop";
    }