XYplorer Beta Club

Code: Select all

//=== Move/Copy to Preset Locations ===//
// This script pops up a menu of destinations and actions (Move or Copy),
// then performs the chosen operation on all selected items.

 // Define your preset destinations here:
    $destinations = <<<#---
C:\
D:\
#---;

// Require a selection
   $selcount = gettoken(<selitems |>, "count", "|");
   if ($selcount == 0) {
	msg "You must select one or more items to continue.";
	end 1==1;
	}

// Ask for Move or Copy first
    $action = popupmenu("Move|Copy");
    if ($action == "") { end 1; } // user cancelled

// Build menu of destination names, include the $action has a disabled header
    $menu = $action . " (" . $selcount . " items);;;4<crlf>--------------<crlf>" . $destinations;

// Show menu of destinations
    $choice = popupmenu($menu);
    if ($choice == "") { end 1; } // user cancelled
    $dest = trim($choice);

// Perform the operation on selected items
    if ($action == "Move") {
        moveto $dest, <get SelectedItemsPathNames |>;
    } else {
        copyto $dest, <get SelectedItemsPathNames |>;
    }