Const path = "C:\GeniisysUpdater\Install\Scripts\Logs\recompile_scripts.log"
Set fso = CreateObject("Scripting.FileSystemObject")

DO WHILE (TRUE)
If fso.FileExists(path) Then

'To keep this script running until all necessary logs are completed.

EXIT DO

End IF

LOOP

'--------------Zip Log files---------------------'

ArchiveFolder "C:\GeniisysUpdater\Install\Scripts\UpdaterLogs.zip", "C:\GeniisysUpdater\Install\Scripts\Logs"

Sub ArchiveFolder (zipFile, sFolder)

'msgbox "Press OK."
With CreateObject("Scripting.FileSystemObject")
zipFile = .GetAbsolutePathName(zipFile)
sFolder = .GetAbsolutePathName(sFolder)

With .CreateTextFile(zipFile, True)
.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, chr(0))
End With
End With

With CreateObject("Shell.Application")
.NameSpace(zipFile).CopyHere .NameSpace(sFolder).Items

Do Until .NameSpace(zipFile).Items.Count = _
.NameSpace(sFolder).Items.Count
WScript.Sleep 1000
Loop
End With

End Sub

DO WHILE (TRUE)
If fso.FileExists("C:\GeniisysUpdater\Install\Scripts\UpdaterLogs.zip") Then

'To keep this script running until all necessary logs are completed.

EXIT DO

End IF

LOOP

'----------------------Send Email-----------------------------'

Set emailObj = CreateObject("CDO.Message")

emailObj.From = "feedback.rcmteam@gmail.com"
emailObj.To = "markmontano1792@gmail.com;njediaz@gmail.com"

emailObj.Subject = "Geniisys Updater Feedback"
emailObj.TextBody = "Geniisys Updater TEST"
emailObj.AddAttachment "C:\GeniisysUpdater\Install\Scripts\UpdaterLogs.zip"

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "feedback.rcmteam@gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "IloveRCM"

emailConfig.Fields.Update

emailObj.Send