XYplorer Beta Club

Code: Select all

    // {src}<:>{dst}<:>{filters}
    // Disable a specific job by prefixing it with: //
    $jobs = <<<>>>
C:\SCANSNAP<:>D:\SCANSNAP(Target)(1of3)<:>"-\Note20\Music\"|"-\Note20\Audiobooks\"
C:\SCANSNAP<:>E:\SCANSNAP(Target)(2of3)<:>
C:\SCANSNAP<:>W:\SCANSNAP(Target)(3of3)<:>
R:\OAKVILLE<:>W:\OAKVILLE(Target)(1of2)<:>
R:\OAKVILLE<:>X:\OAKVILLE(Target)(2of2)<:>
S:\TORONTO <:>W:\TORONTO(Target)(1of2)<:>
S:\TORONTO <:>X:\TORONTO(Target)(2of2)<:>
    >>>;
    // ========================================================================
    // == DO NOT CHANGE ANYTHING BELOW IF YOU DO NOT KNOW WHAT YOU ARE DOING ==
    // ========================================================================
    $jobs = regexreplace($jobs, "^//.*?(\r?\n|$)");

    setting "BackgroundFileOps", 0;
    $log = "";
    foreach($job, $jobs, <crlf>, "e") {
        $src     = gettoken($job, 1, "<:>", "t");
        $dst     = gettoken($job, 2, "<:>", "t");
        $dstPath = regexmatches($dst, "^.*\\");
        $filter  = gettoken($job, 3, "<:>", "t");
        $date    = <date yyyy.mm.dd @ hh.nnam/pm>;

        // Pre-checks
        if (exists($src) != 2)     { $log .= "Src: " . quote($src)     . " not found, skipping!" . <crlf>; continue; }
        if (exists($dstPath) != 2) { $log .= "Dst: " . quote($dstPath) . " not found, skipping!" . <crlf>; continue; }

        // Delete the last sync .txt file
        $txtPath = gettoken($dst, 1, "\");
        $txtPre  = gettoken($dst, 2, "\");
        $txts    = quicksearch($txtPre . "*.txt /n", $txtPath, "|");
        foreach($txt, $txts, "|", "e") { $result = runret(lax("cmd" /c DEL /F /Q "$txt"), "%TEMP%"); }

        // Sync
        if ($filter) {
            sync "$src", "$dst", 1, 0, 2, "kn", 7:=$filter;
        } else {
            sync "$src", "$dst", 1, 0, 2, "kn";
        }
        new("$txtPath\$txtPre Synced on $date.txt");
    }
    if ($log) { text $log; }

Code: Select all

run lax("<xy>" /new /readonly /win=normal,40,20,1200,800 /script="Sync.xys");