XYplorer Beta Club

Code: Select all

$AllowedPaths = <<<PathsAllowedToBeTidiedUp
//Replace this line with the paths you would like to tidy up (one line per path)
PathsAllowedToBeTidiedUp;

 $tk_index = gettokenindex("<curpath>", $AllowedPaths, "<crlf>", "c");
 
 if($tk_index)
 {
 $CurrentContents = listfolder(2:="1", 3:="<crlf>");
 if (!quicksearch("Documents /nd", 3:="n"))
 {new("Documents", "dir");}
 if (!quicksearch("Programs /nd", 3:="n"))
 {new("Programs", "dir");}
 if (!quicksearch("Compressed /nd", 3:="n"))
 {new("Compressed", "dir");}
 if (!quicksearch("Music /nd", 3:="n"))
 {new("Music", "dir");}
 if (!quicksearch("Video /nd", 3:="n"))
 {new("Video", "dir");}

 $Documents = regexmatches($CurrentContents, "^.*\.(doc|docx|pdf|ppt|pps|pptx)$");
 $Programs = regexmatches($CurrentContents, "^.*\.(exe|msi)$");
 $Compressed = regexmatches($CurrentContents, "^.*\.(zip|rar|r\d{1,2}|arj|gz|sit|sitx|sea|ace|bz2|7z)$");
 $Music = regexmatches($CurrentContents, "^.*\.(mp3|wav|wma|mpa|ram|ra|aac|aif|m4a)$");
 $Video = regexmatches($CurrentContents, "^.*\.(avi|mpg|mpe|mpeg|asf|wmv|mov|qt|rm|mp4|flv|m4v|webm|ogv|ogg|mkv)$");

 if($Documents) {moveto("<curpath>\Documents", "$Documents" ,5:="-1");}
 if($Programs) {moveto("<curpath>\Programs", "$Programs" ,5:="-1");}
 if($Compressed) {moveto("<curpath>\Compressed", "$Compressed" ,5:="-1");}
 if($Music) {moveto("<curpath>\Music", "$Music" ,5:="-1");}
 if($Video) {moveto("<curpath>\Video", "$Video" ,5:="-1");}
 
 status "Completed" , 2:="ready"
 }
 else
 {status "Current path is not allowed to be tidied up", "8B4513", "stop"; end true;}

Code: Select all

    $allowedPaths = <<<>>>
// Add all paths that are allowed to be cleaned up (one line per path)
>>>;

    // Add a folder name and its belonging extensions separated with a "="
    $config = <<<>>>
        Documents=doc|docx|pdf|ppt|pps|pptx
        Programs=exe|msi
        Compressed=zip|rar|r\d{1,2}|arj|gz|sit|sitx|sea|ace|bz2|7z
        Music=mp3|wav|wma|mpa|ram|ra|aac|aif|m4a
        Video=avi|mpg|mpe|mpeg|asf|wmv|mov|qt|rm|mp4|flv|m4v|webm|ogv|ogg|mkv
>>>;
    if (strpos($allowedPaths, <curpath>) == -1) {
        status "Current path is NOT in the list of allowed paths, aborted!", "8B4513", "stop"; end true;
    }
    $files = listfolder(2:=1, 3:=<crlf>);
    if !($files) { status "No file(s) in the current folder, aborted!", "8B4513", "stop"; end true; }

    foreach($item, $config, <crlf>, "e") {
        $folderName = trim(gettoken($item, 1, "="));
        $extensions = trim(gettoken($item, 2, "="));
        if (!$folderName || !$extensions) { continue; }

        $matches = regexmatches($files, "^.*\.($extensions)$");
        if ($matches) {
            if (exists("<curpath>\$folderName") != 2) { new($folderName, "dir"); }
            moveto("<curpath>\$folderName", $matches);
        }
    }
    status "Completed";