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