利用COM实现文件名批处理:删掉---【meimajidi.com 美妈基地网整理】
dir=D:\anan\1-52解压密码meimajidi.com
objFolder := ComObjCreate("Shell.Application").NameSpace(dir)
for item in objFolder.items
if Not item.isFolder
{
fn:= item.name
StringReplace,ofn,fn,---【meimajidi.com 美妈基地网整理】
item.name :=ofn
}