用asp实现的代码批量修改程序，fso相关

用asp实现的代码批量修改程序，fso相关

是因工作需要做的一个批量修改代码的小东西，拿出来与大家分享
目前可以处理的文件类型：.asp.inc.htm.html具体类型可自行修改添加

程序实现的功能：将源目录下的文件批量修改后存到目的目录下
用它稍做修改可以实现很多东西噢！

别的不说了，代码里面都写的很清楚了
<%
"//+---------------------------------------------------------------------------+
"//|程序名称：他山之石代码批量修改器v1.01|
"//|他山之石版权所有，侵权必究！转载请注明版权：）|
"//|-------------------------------------------------------------------------|
"//|系统:win2000;编辑器:EditPlus;缩进工具:Tab;缩进长度:8;字体:宋体(10pt);|
"//|-------------------------------------------------------------------------|
"//|创建者:WYC;创建时间:2004-03-08;|
"//|编写者:WYC;编写时间:2004-03-08;|
"//+---------------------------------------------------------------------------+

Server.ScriptTimeOut=500"脚本超时时间

"//+---------------------------------------------------------------------------+
"//|批量修改函数|
"//|-------------------------------------------------------------------------|
"//|属性：path_from源文件目录path_to目标文件工作目录|
"//|-------------------------------------------------------------------------|
"//|返回值：无|
"//|-------------------------------------------------------------------------|
"//|程序流程：......|
"//|-------------------------------------------------------------------------|
"//|编写者:WYC;编写时间:2004-03-08;|
"//+---------------------------------------------------------------------------+
Submidfile(path_from,path_to)
list_from=path_from"储存当前源工作目录
list_to=path_to"储存当前目标工作目录
Setfso=CreateObject("Scripting.FileSystemObject")
SetFold=fso.GetFolder(list_from)"获取Folder对象
Setfc=Fold.Files"获取文件记录集
Setmm=Fold.SubFolders"获取目录记录集
ForEachf2inmm
setobjfile=server.createobject("scripting.filesystemobject")
objfile.CreateFolder(path_to&"\"&f2.name)"创建目录
midfilepath_from&"\"&f2.name,path_to&"\"&f2.name"递归调用
response.writepath_to&"\"&f2.name&"完毕！<br>"
Next
ForEachf1infc
file_from=list_from&"\"&f1.name"生成文件地址(源)
file_to=list_to&"\"&f1.name"生成文件地址(到)
fileExt=lcase(right(f1.name,4))"获取文件类型
IffileExt=".asp"orfileExt=".inc"orfileExt=".htm"orfileExt="html"Then"具体类型可自行修改添加
setobjfile=server.createobject("scripting.filesystemobject")"定义一个服务器组件（读取源文件）
setout=objfile.opentextfile(file_from,1,false,false)
content=out.readall"读取数据
out.close

"//+---------------------------------------------------+
"//|文件内容处理模块（主要，其他都是文件操作）|
SetregEx=NewRegExp
regEx.Pattern="(\>\s*\n)"
regEx.Global=true"设置全部匹配模式
content=regEx.Replace(content,">")"替换掉回车符
content=Replace(content,"","")"作tab替换
"//+---------------------------------------------------+

setobjfile=server.createobject("scripting.filesystemobject")"定义一个服务器组件（写入目标文件）
setoutt=objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content)"写入数据
outt.close
else"否则直接复制文件
Setfso=CreateObject("Scripting.FileSystemObject")
fso.CopyFilefile_from,file_to
EndIf
Next
EndSub

midfileServer.mappath("temp/aaa"),Server.mappath("temp/bbb")"调用示例源目录temp/aaa处理后存到temp/bbb
"源目录目的目录（必须是已经存在的目录）
%>