resizeto 500,300 '减去字符串的脚本 sub tihuan(varsrc,vardst,var1,var2) 'msgbox varsrc & vardst & var1 & var2 set fso1=createobject("scripting.filesystemobject") set folder_src=fso1.getfolder(varsrc) set folder_dst=fso1.getfolder(vardst) 'set folders_src=folder_src.subfolders set files_src=folder_src.files for each fi in files_src dstfi=replace(fi.name,var1,var2) fso1.movefile fi.path,folder_dst.path & "\" & dstfi next msgbox "完成" end sub sub tianjia(varsrc,vardst,var1,var2) 'msgbox varsrc & vardst & var1 & var2 set fso1=createobject("scripting.filesystemobject") set folder_src=fso1.getfolder(varsrc) set folder_dst=fso1.getfolder(vardst) 'set folders_src=folder_src.subfolders set files_src=folder_src.files for each fi in files_src if cint(var2)=0 then dstfi=var1 & fi.name elseif cint(var2)=-1 then n=instr(1,fi.name,".",1) 'msgbox n 'dstfi=fi.name & var1 & right("") end if fso1.movefile fi.path,folder_dst.path & "\" & dstfi next msgbox "完成" end sub

源文件夹

目标文件夹

更改方式
指定源字符串
指定目标字符串

替换

添加


(2715) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的