Question

按键精灵如何批量改图片文件名

如何编一个批量改名，一个文件夹，文件夹名设为变量，最好有输入，填一下整个都自成动改名了，里有图片同文件夹名，每一个图片名后加1张图，2张图

Answer 1

按键精灵实现不到的东西可以借用VB语句实现，按键9代码如下

call 修改文件夹内的所有名字("d:\我的文档\桌面\新建文件夹")
Function 修改文件夹内的所有名字(文件夹路径)//按键9编写
    Dim 文件名,fso,folder,f,files
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.getfolder(文件夹路径)
    Set files = folder.files
    For Each f In files
        文件名 = 文件名 & f.name & ","
    Next
    Set fso = Nothing
    遍历指定目录下所有文件名 = Split(文件名, ",")
    For i=0 to UBound(遍历指定目录下所有文件名)-1
        扩展名分开= Split(遍历指定目录下所有文件名(i), ".")
        要改的名字=扩展名分开(0)&(i+1)&"图片"//扩展名分开(0)为原名称+修改后的名称，如不需要原名称就去掉（扩展名分开(0)）
        Call Plugin.File.ReNameFile(文件夹路径&"\"&扩展名分开(0)&"."&扩展名分开(1), 文件夹路径&"\"&要改的名字&"."&扩展名分开(1))
    Next
End Function