vbs- option explicit
- dim a, b, c, d, e, f, g, h, i
- set a = createobject("scripting.filesystemobject")
- set b = a.getfolder("d:\soft")
- for each c in b.subfolders
- set d = a.getfolder(c)
- for each e in d.files
- if right(e, 7) = "doc.txt" then
- sub1 e
- end if
- next
- next
-
- sub sub1(str)
- set f = a.opentextfile(str)
- set g = new regexp
- g.global = true
- g.pattern = "orc"
- i = g.replace(f.readall, "hum")
- a.deletefile str, true
- a.createtextfile(str).write i
- end sub
复制代码
|