/*
===============================================================================
Source   : https://resource.dopus.com/t/paste-here-to-new-subfolder/41190/7
Function : Paste (Copy) Here to New Subfolder
Created  : 2022-05-06
Modified : 2022-11-30
Version  : v0.3
===============================================================================
*/



function OnClick(clickData)
{
	var cmd = clickData.func.command;
	cmd.ClearFiles();

	if (DOpus.GetClipFormat() != 'files')
		return;

	var clipFiles = DOpus.GetClip('files');
	var firstName = clipFiles(0).name_stem_m;

	var fsu = DOpus.FSUtil;
	var path = clickData.func.sourcetab.path;
	path = fsu.Resolve(path);

    var dlg = clickData.func.Dlg();
    
    dlg.title = "Directory Opus";                                              // Title
    dlg.template = "dlgCombox";
	dlg.detach = true;
    dlg.Create();
	dlg.Control("static").style = "b";
	dlg.Control("static").label = "Paste (Copy) Here to New Subfolder";        // Topic
	dlg.Control("static2").label = "Select or enter folder name or subpath";   // Notes
	dlg.Control("static3").label = "D:\\Icons\\XYplorer Pane C-M COPY MOVE.png"; // Icon
	
	dlg.Control("combo").label = firstName;                                    // Defalut value
	dlg.Control("combo").SelectRange(0, -1);                                   // Select defalut value
	
    for(i = 0; i < clipFiles.count; i++)
        {
		 dlg.Control("combo").AddItem(clipFiles(i).name_stem_m);               //Add each item to drop-down list
        }
    
    dlg.Show();

// msg loop	
	do
	{
		msg = dlg.GetMsg();
/*
        // Selection
		if(msg == true && dlg.Control("combo").focus == true) {
		DOpus.Output(dlg.Control("combo").label);
		}
*/
        // Result, perform the paste operation
		if(dlg.result == 1) {
		  var input = dlg.Control("combo").label;
		  if(input == "") {return};
		  cmd.RunCommand('CreateFolder READAUTO=no NAME="' + input + '"');
		  path.Add(input);
		  cmd.SetSource(path);
		  cmd.RunCommand('Clipboard PASTE');
		}
/*		
		// If the button 3 is pressed
		if(dlg.result == 2) {
		DOpus.Output("Button 3 is pressed");
		}
		
		// If the button 4 is pressed
		if(dlg.result == 3) {
		DOpus.Output("Button 4 is pressed");
		}
*/
	} while (msg == true);
}



==SCRIPT RESOURCES
<resources>
	<resource name="dlgCombox" type="dialog">
		<dialog fontsize="8" height="78" lang="english" resize="yes" title="Directory Opus" width="322">
			<control edit="yes" height="40" name="combo" type="combo" width="306" x="8" y="40" />
			<control close="3" enable="no" height="14" name="btn4" resize="xy" title="&amp;4" type="button" visible="no" width="50" x="101" y="57" />
			<control close="2" enable="no" height="14" name="btn3" resize="xy" title="&amp;3" type="button" visible="no" width="50" x="155" y="57" />
			<control halign="left" height="8" name="static" title="Topic" type="static" valign="top" width="280" x="30" y="10" />
			<control halign="left" height="16" name="static2" title="Notes" type="static" valign="top" width="280" x="30" y="22" />
			<control halign="center" height="14" image="yes" name="static3" title="Icon" type="static" valign="top" width="14" x="8" y="7" />
			<control close="1" default="yes" height="14" name="btnOK" resize="xy" title="&amp;OK" type="button" width="50" x="209" y="57" />
			<control close="0" height="14" name="btnCancel" resize="xy" title="&amp;Cancel" type="button" width="50" x="263" y="57" />
		</dialog>
	</resource>
</resources>