Ok, this is a script that's supposed to basically mirror two sets of folders. I managed to get it to work, but it seems like it didn't check each subfolder. So, I added these lines to the code:

Set colFolders = objFolder.Subfolders

Then I added this:

For each subFolder in colFolders
    For each objFile in colFiles
        Dim DateModified
        DateModified = objFile.DateLastModified
        ReplaceIfNewer objFile, DateModified, strSourceFolder, strDestFolder
    Next
Next

This however does not seem to be working. This is the full code below.

Dim strSourceFolder, strDestFolder
Dim fso, objFolder, colFiles, colfolders

strSourceFolder = "c:\users\vegsan\desktop\Source\"
strDestFolder = "c:\users\vegsan\desktop\Dest\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(strSourceFolder)
Set colFiles = objFolder.Files
Set colFolders = objFolder.Subfolders

For each subFolder in colFolders
    For each objFile in colFiles
        Dim DateModified
        DateModified = objFile.DateLastModified
        ReplaceIfNewer objFile, DateModified, strSourceFolder, strDestFolder
    Next

Next

Sub ReplaceIfNewer (sourceFile, DateModified, SourceFolder, DestFolder)

    Const OVERWRITE_EXISTING = True
    Dim fso, objFolder, colFiles, sourceFileName, destFileName
    Dim DestDateModified, objDestFile

    Set fso = CreateObject("Scripting.FileSystemObject")

    sourceFileName = fso.GetFileName(sourceFile)
    destFileName = DestFolder & sourceFileName

    if fso.FileExists(destFileName) Then

        Set objDestFile = fso.GetFile(destFileName)
        DestDateModified = objDestFile.DateLastModified


        if DateModified <> DestDateModified Then
            fso.CopyFile sourceFile, destFileName
        End if

    End if

    if Not fso.FileExists(destFileName) Then

        fso.CopyFile sourceFile, destFileName

    End if

End Sub