当前目录中的文件后缀名.zip全部去掉，或者增加后缀.mkv？【已解决】

blue_dvd

最近下载一些电视剧，都是后缀名.zip,要自己一个个去掉，或者加上后缀名.mkv,请教高手可否有简单的文件操作方法，给个实例？万分感谢！

afan

Local $sDir = @ScriptDir
Local $hSearch = FileFindFirstFile($sDir & '\*.zip')
If $hSearch = -1 Then Exit
Local $sFileName
While 1
        $sFileName = $sDir & '\' & FileFindNextFile($hSearch)
        If @error Then ExitLoop
        FileMove($sFileName, StringRegExpReplace($sFileName, '(?i)\.zip$', '.mkv'))
WEnd

zghwelcome

配合批，只用一行代码

RunWait(@ComSpec & ' /c for /r %a in (.) do ren "%a\*.zip" *.mkv',@ScriptDir,@SW_HIDE)

blue_dvd

回复 2# afan
非常感谢A大！正在研究中！