Directory Opus重命名

伤怒放

各位大侠用Directory Opus重命名文件，我想把文件名“规格书.xlsx”命名成“规格书-2016-04-17.xlsx”应该怎么设置，后续就可以一键命名，因自带的时间缀有日期与时间，但我只需要日期

老球球

Option Explicit
Function OnGetNewName(ByRef getNewNameData)
        Dim item
        Set item = GetNewNameData.item
        OnGetNewName = item.name_stem & " - " & date() & item.Ext
End Function

伤怒放

大神能帮我截个图吗代码是怎么添加的我加进去不行

老球球

伤怒放 发表于 2016-4-18 20:04
大神能帮我截个图吗代码是怎么添加的我加进去不行

重命名对话框里面，有个脚本，粘贴过去就行了，我的v12 beta，估计和你的不一样，但是脚本能通用的。

给你个v11的截图

伤怒放

谢谢大神就是不知道怎么添加到菜单中去

老球球

你可以把这个保存为一个方案，重命名对话框的"预置方案"右侧第一个扭，然后添加一个按钮，

Rename PRESET=add data

伤怒放

感谢～无意间把自带的代码改成我想要的了～貌似DO用的人不及tc多找了好久就在卡饭发现有关于的帖子

老球球

<?xml version="1.0"?>
<button backcol="none" display="both" label_pos="right" textcol="none">
        <label>添加日期</label>
        <tip>添加当前日期到文件名</tip>
        <icon1>#rename2</icon1>
        <function type="normal">
                <instruction>Rename PATTERN * TO * TYPE=files </instruction>
                <instruction>@nodeselect</instruction>
                <instruction />
                <instruction>@script vbscript</instruction>
                <instruction>Option Explicit</instruction>
                <instruction />
                <instruction>Function Rename_GetNewName(strFileName, strFilePath, fIsFolder, strOldName, ByRef strNewName)</instruction>
                <instruction>    Dim DotPos, strFileExt</instruction>
                <instruction>    DotPos = InStrRev(strFileName, &quot;.&quot;)</instruction>
                <instruction>    strFileExt = Right(strFileName, Len(strFileName) - DotPos + 1)</instruction>
                <instruction>    strNewName = left(strFileName, DotPos - 1) &amp; &quot; &quot; &amp; Replace(Date(), &quot;/&quot;, &quot;-&quot;) &amp; strFileExt</instruction>
                <instruction>    'DOpus.OutPut(strNewName)</instruction>
                <instruction>End Function</instruction>
        </function>
</button>