用asp实现的代码批量更改程序

用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对象

Set fc = Fold.Files '获取文件记录集

Set mm = Fold.SubFolders '获取目录记录集

For Each f2 in mm

set objfile = server.createobject("scripting.filesystemobject")

objfile.CreateFolder(path_to & "/" & f2.name) '创建目录

midfile path_from & "/" & f2.name, path_to & "/" & f2.name '递归调用

response.write path_to & "/" & f2.name & " 完毕！<br>"

Next

For Each f1 in fc

file_from = list_from & "/" & f1.name '生成文件地址(源)

file_to = list_to & "/" & f1.name '生成文件地址(到)

fileExt = lcase(right(f1.name,4)) '获取文件类型

If fileExt=".asp" or fileExt=".inc" or fileExt=".htm" or fileExt="html" Then '具体类型可自行修改添加

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!