用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; |
'// +---------------------------------------------------------------------------+
Sub midfile(path_from, path_to)
list_from = path_from '储存当前源工作目录
list_to = path_to '储存当前目标工作目录
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fold = fso.GetFolder(list_from) '获取Folder对象