ASP-Implemented Code batch modification program, FSO related

Using ASP to implement the Code batch modification program, FSO related


is due to work need to do a lot of code to modify the small things, take out to share with you


the type of file currently available for processing:. ASP. inc. htm. HTML specific types can be modified to add


program to achieve the function: the source directory of the files in bulk modified to save to the destination directory


use it to do a little modification can achieve a lot of things oh!


the other words, the code is written very clearly


<%


'// +---------------------------------------------------------------------------+


'// | Program name: His mountain stone code batch modifier v1.01 |


'// | The stone of his mountain all rights reserved, infringement must investigate! Reprint please specify the Copyright:) |


'// | ------------------------------------------------------------------------- |


'// | System: Win2000; Editor: EditPlus; Indent tool: Tab; Indent Length: 8; Font: XXFarEastFont-Arial (10pt); |


'// | ------------------------------------------------------------------------- |


'// | Created by: WYC; Date created: 2004-03-08; |


'// | Written by: WYC; Written time: 2004-03-08; |


'// +---------------------------------------------------------------------------+


server.scripttimeout = 500 ' Script Timeout time


'// +---------------------------------------------------------------------------+


'// | Batch modification Function |


'// | ------------------------------------------------------------------------- |


'// | Properties: Path_from source file directory path_to target file working directory |


'// | ------------------------------------------------------------------------- |


'// | return Value: none |


'// | ------------------------------------------------------------------------- |


'// | Program Flow: ... |


'// | ------------------------------------------------------------------------- |


'// | Written by: WYC; Written time: 2004-03-08; |


'// +---------------------------------------------------------------------------+


Sub midfile (Path_from, path_to)


List_from = Path_from ' stores current source working directory


list_to = path_to ' stores the current target working directory


Set fso = CreateObject ("Scripting.FileSystemObject")


Set Fold = fso. GetFolder (list_from) ' Get Folder object