批量修改文件名

最新推荐文章于 2024-08-29 14:26:50 发布

cxc3214

最新推荐文章于 2024-08-29 14:26:50 发布

阅读量142

点赞数

文章标签：影视

本文链接：https://blog.csdn.net/cxc3214/article/details/83914143

版权

VBS

function FileList(Path,fstr)
set fso=CreateObject("Scripting.FileSystemObject")
set objFolder=fso.GetFolder(Path)
Set fc = objFolder.Files

    nowPath=Path 
    for each objFile in fc
	'msgbox objFile.name
	'msgbox lcase(replace(objFile.name,fstr,""))
       oldname = nowPath &"\"& objFile.name
       newname = nowPath &"\"& lcase(replace(objFile.name,fstr,""))
	'msgbox oldname & newname
	fso.MoveFile oldname,newname 
       'name oldname  As newname 
    next
set objFolder=nothing
set fso=nothing
end function
 
msgbox "开始，可能需要一段时间"
 
FileList "E:\爱情有点蓝\爱情有点蓝2","[久久影视www.99bo.cc]"
 
msgbox "修改完成"