论坛 › 已解决问题区 › 求助：文件批量改名的问题

gzygzy 发表于 2009-2-21 19:41:35

求助：文件批量改名的问题

文件批量改名的问题


我将文件名保存在一文本文件中，想通过读取这一文本文件，将文件夹下所有图片的文件名改成对应的名字，
如将“gzy25.gif”改成“阿.gif”，“gzy26.gif”改成“啊.gif”。谢谢！

[ 本帖最后由 gzygzy 于 2009-2-21 21:13 编辑 ]

sxd 发表于 2009-2-21 20:10:35

#include<File.au3>

$ImgFileList = _FileListToArray("C:\images", "*.gif", 1)
$File = FileOpen("C:\images\文件名.txt", 0)
For $I = 1 To $ImgFileList
        $Name = FileReadLine($File, $I)
        FileMove("C:\images\" & $ImgFileList[$I], "C:\images\" & $Name & ".gif")
Next
FileClose($File)

gzygzy 发表于 2009-2-21 21:11:33

多谢。:face (13):

查看完整版本: 求助：文件批量改名的问题