VB Script to delete files requires exclusion parameter

Hi,

This question has been asked before here:
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_22990125.html

However, I don;t know enough about VB Script to understand the answer. Can someone please explain this to me?

The below script will delete all files in a folder structure older than 30 days. I want to be able to exclude certain folders. The additional code was the answer provided, however as I say I don't know enough to understand how to implement it :-(

Dim fso, startFolder, OlderThanDate

Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "C:\newfolder\"
OlderThanDate = DateAdd("d", -30, Date)  ' 90 days (adjust as necessary)

DeleteOldFiles startFolder, OlderThanDate

Function DeleteOldFiles(folderName, BeforeDate)
   Dim folder, file, fileCollection, folderCollection, subFolder

   Set folder = fso.GetFolder(folderName)
   Set fileCollection = folder.Files
   For Each file In fileCollection

         If file.DateLastModified < BeforeDate Then
            fso.DeleteFile(file.Path)
         End If

   Next

    Set folderCollection = folder.SubFolders
    For Each subFolder In folderCollection
       DeleteOldFiles subFolder.Path, BeforeDate
    Next
End Function

----------------------------------
===Additional function as provided in previous answer:

For Each subFolder In folderCollection
if fso.foldername <> "newfolder"then
       DeleteOldFiles subFolder.Path, BeforeDate
end if
    Next


Thanks for any help,

Ben