' "I Need aGFI MAX script that will pass/fail a Barracuda backup" Option Explicit On Error Resume Next Dim fso, path, file, file2,recentDate, recentFile,objTextFile2, objTextFile,str Set fso = CreateObject("Scripting.FileSystemObject") Set recentFile = Nothing For Each file in fso.GetFolder("C:\Program Files\Barracuda\Yosemite Server Backup\log\").Files ' C:\Program Files\Barracuda\Yosemite Server Backup\log If (recentFile is Nothing) Then Set recentFile = file ElseIf ((file.DateLastModified > recentFile.DateLastModified) and (UCase(file.Type) = "TXT")) Then Set recentFile = file End If Next Const ForReading = 1 If recentFile is Nothing Then WScript.Echo "no recent files" Else Wscript.Echo recentFile.Name & "**********************************" Set objTextFile = fso.OpenTextFile _ ("C:\Program Files\Barracuda\Yosemite Server Backup\log\" & recentFile.Name, ForReading) Do Until objTextFile.AtEndOfStream str = objTextFile.ReadLine Wscript.Echo str Loop objTextFile.Close Set objTextFile2 = fso.OpenTextFile _ ("C:\Program Files\Barracuda\Yosemite Server Backup\log\" & Replace(recentFile.Name,"files","summary"), ForReading) Do Until objTextFile2.AtEndOfStream str = objTextFile2.ReadLine Wscript.Echo str Loop objTextFile2.Close WScript.Echo "Recent file is " & recentFile.Name & " " & recentFile.DateLastModified End If If err.number<>0 then WScript.Echo "Script Check Failed" Wscript.Quit 1001 Else WScript.Echo "Script Check Passed" Wscript.Quit 0 End If 'Call ReadXml("C:\Users\itokhyan\Desktop\PowerShell_TASKS\xmlExample.xml")