【命令】将选中文件移入以焦点处文件名称命名的文件夹中

[ttbamov]

【功能】
将选中文件移入以焦点处文件名称命名的文件夹中
【说明】
选中文件后，使用命令，会将文件移至一个新的文件夹内
文件夹的名字会有弹窗确认，弹窗内选中的文字为最后鼠标点击选中的文件，可直接进行修改
确认后文件夹会被快速的移至该文件夹内
【命令内容】

function OnClick(clickData)
{
var cmd = clickData.func.command;
cmd.deselect = false;
var focesIten = clickData.func.sourcetab.GetFocusItem;
var name = focesIten.name_stem_m.replace(/\s*(.*/,"")
cmd.AddLine('@set name={dlgstringS|请输入新建文件夹名称|"' + name + '"}');
cmd.AddLine('Copy MOVE HERE CREATEFOLDER="{$name}"');
cmd.Run;
}

【压缩包文件】
将选中文件移入以焦点处文件名称命名的文件夹中.zip
【截图】

【演示】

by@白天

[Chaoses-Ib]

代码粘贴丢了一个 \，修复版代码：

function OnClick(clickData)
{
    var cmd = clickData.func.command;
    cmd.deselect = false;
    var focesIten = clickData.func.sourcetab.GetFocusItem;
    var name = focesIten.name_stem_m.replace(/\s*\(.*/,"")
    cmd.AddLine('@set name={dlgstringS|请输入新建文件夹名称|"' + name + '"}');
    cmd.AddLine('Copy MOVE HERE CREATEFOLDER="{$name}"');
    cmd.Run;
}

[param1903]

The code was pasted and one was lost \, the repaired version of the code:

function OnClick(clickData)
{
    var cmd = clickData.func.command;
    cmd.deselect = false;
    var focesIten = clickData.func.sourcetab.GetFocusItem;
    var name = focesIten.name_stem_m.replace(/\s*\(.*/,"")
    cmd.AddLine('@set name={dlgstringS|请输入新建文件夹名称|"' + name + '"}');
    cmd.AddLine('Copy MOVE HERE CREATEFOLDER="{$name}"');
    cmd.Run;
}

Thank you for posting the repaired version, it works perfectly, and thank you for always helping