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

blue_dvd · 发表于 2016-3-22 20:26:19

本帖最后由 blue_dvd 于 2016-3-23 11:14 编辑

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

afan · 发表于 2016-3-22 21:11:48

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 · 发表于 2016-3-23 09:49:24

配合批，只用一行代码

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

blue_dvd · 发表于 2016-3-23 10:36:11

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

		自动登录	找回密码
密码			加入

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

相关帖子

评分