// ->
Script>
'Head is too halo,
http://blog.9cbs.net/super852
Http://spacs.msn.com/members/headfaint/
SET FSO = CreateObject ("scripting.filesystemObject")
DIM oldstring
DIM newstring
Sub Refile (OfileName, NFileName)
DIM TXTFILE
Fso.copyFile OfileName, NFileName
SET fr = fso.opentextfile (OfileName)
TXTFILE = Replace (Fr.Readall, Oldstring, Newstring)
Fr.Close
Set fw = fso.opentextfile (OfileName, 2)
fw.write txtfile
Fw.close
End Sub
SUB F_START (Ofolder, NFolder)
F_startn ofolder, NFolder
Set fld = fso.getfolder (OFOLDER)
For Each Nfile in Fld.Files
astrn = nfile.name
Strln = Instrrev (astrn, ". ASP")
IF strln the refile ofolder & "/" & nfile.name, nFolder & "/" & nfile.name
NEXT
End Sub
SUB F_STARTN (Ofolder, NFolder)
Set fld = fso.getfolder (OFOLDER)
For each ifolder in fld.subfolders
Fso.createFolder (nfolder & "/" & ifolder.name)
F_start ifolder, nfolder & "/" & ingolder.name
NEXT
End Sub
script>
HEAD>
Table of Contents: >>>>>>>>>>>>>>
Body>
Html>
By modifying it can support the regular expression.