Merge Experiment(s) to Current

// This snippet puts up a dialog box to select multiple experiments to MERGE in to the current experiment
// Caveats apply -- please read about MERGING EXPERIMENTS before you use this
 
#pragma rtGlobals=1     // Use modern global access method.
 
Function MergeSelectedtoCurrent()
 
    string theCmd
    variable refNum, ic, nExp
    
    Open/D/R/MULT=1/F="Igor Prop Experiments (*.pxp):.pxp;"/M="Select experiments to merge" refNum
    if (strlen(S_filename)==0)
        return 0
    endif
    
    nExp = ItemsInList(S_filename,"\r")
    for (ic=0;ic<nExp;ic+=1)
        sprintf theCmd, "MERGEEXPERIMENT %s", StringFromList(ic,S_filename,"\r")
        Execute/P/Q theCmd
    endfor
    
    return 0
end