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

gzygzy

文件批量改名的问题


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

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

sxd

#include<File.au3>

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

gzygzy

多谢。