小白请大侠指点江湖

tcqhxzf

我想自己做一个文件 批量重命名的脚本，但是，由于刚入道，不会提取文件名称，请大侠指教。想在“查找”里输入文件名称的几个字符，然后在“浏览框”制定的文件夹里搜索，然后用“替换为”中的字符替换相应的字符。这种模糊匹配的方式不会啊，请大侠帮帮忙

Sky_Pro

可以试试用系统组件：Scripting.FileSystemObject

给个参考、、

function GetBaseName(path)//获取文件绝对路径的文件名(不包含扩展名)
    fso=com("Scripting.FileSystemObject")
     ret=fso.GetBaseName(path)
    fso=null
    return ret
endfunction

function GetExtensionName(path)//获取文件绝对路径的文件名扩展名
    fso=com("Scripting.FileSystemObject")
    ret=fso.GetExtensionName(path)
    fso=null
    return ret
endfunction

function GetFileName(path)//获取文件绝对路径的文件名全名
    fso=com("Scripting.FileSystemObject")
    ret=fso.GetFileName(path)
    fso=null
    return ret
endfunction

sugar987009

将文件目录路径下的字符 使用字符串截取的方式 获取你想要修改的文件夹名称 赋值给下拉框 然后使用重命名文件夹 就可以了 如果想要批量的话 你自己把导入方式换成那种可以多行的  然后让软件一行一行处理就可以了

tcqhxzf

回复 3楼Sky_Pro的帖子

谢谢大侠

tcqhxzf

回复 2楼sugar987009的帖子

谢谢大侠