Directory Opus重命名

伤怒放

谢谢，老师你发的这个又是干嘛的

老球球

伤怒放 发表于 2016-4-22 15:03
谢谢，老师你发的这个又是干嘛的

这就是你要的按钮

更新一下，上一个碰到没有扩展名的会出错
<?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 * </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>    If DotPos &lt;&gt; 0 Then </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>    Else</instruction>
                <instruction>        strFileExt = &quot;&quot;</instruction>
                <instruction>        strNewName = strFileName &amp; &quot; &quot; &amp; Replace(Date(), &quot;/&quot;, &quot;-&quot;) &amp; strFileExt</instruction>
                <instruction>    End If</instruction>
                <instruction>    DOpus.OutPut(strNewName)</instruction>
                <instruction>End Function</instruction>
        </function>
</button>

伤怒放

嗯。谢谢老师～您用do多久了一看就是高手级别的v12还没出中文版的吧

老球球

伤怒放 发表于 2016-5-1 10:56
嗯。谢谢老师～您用do多久了一看就是高手级别的v12还没出中文版的吧

从9用到现在了