ASP-Implemented Code batch modification program, FSO related
Last Update:2017-01-13
Source: Internet
Author: User
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