[Tracer]

This is the script I have so far. I need to figure out now how to grab the name of the most recent file in the specified dir that is returned and send it as an attachment. Is there a way of wild carding that?

sPath = "c:\mssql\reports"


Set oFSO = CreateObject("Scripting.FileSystemObject")

sNewestFile = GetNewestFile(sPath)

If sNewestFile <> "" Then

   WScript.Echo "Newest file is " & sNewestFile

   dFileModDate = oFSO.GetFile(sNewestFile).DateLastModified
   If DateDiff("h", dFileModDate, Now) > 24 Then
      Set objMessage = CreateObject("CDO.Message") 
      objMessage.Subject = "Warning - No new report available" 
      objMessage.From = "firstname_lastname@comany.com"  
      objMessage.To = "firstname_lastname@company.com" 
      objMessage.TextBody = "Warning - No new report file was found in reports dir.  please investigate."

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "exchange_server_name"

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

      objMessage.Configuration.Fields.Update

      objMessage.Send
      End If

Else
   Set objMessage = CreateObject("CDO.Message") 
      objMessage.Subject = "Warning - report directory is empty" 
      objMessage.From = "firstname_lastname@comany.com"  
      objMessage.To = "firstname_lastname@company.com" 
      objMessage.TextBody = "Warning - Reports directory is empty, please investigate."

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "exchange_server_name"

      objMessage.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

      objMessage.Configuration.Fields.Update

      objMessage.Send
End If


Function GetNewestFile(ByVal sPath)

   sNewestFile = Null   ' init value

   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFSO.GetFolder(sPath)
   Set oFiles = oFolder.Files

   ' enumerate the files in the folder, finding the newest file
   For Each oFile In oFiles
     On Error Resume Next
     If IsNull(sNewestFile) Then
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     Elseif dPrevDate < oFile.DateLastModified Then
       sNewestFile = oFile.Path
     End If
     On Error Goto 0
   Next

   If IsNull(sNewestFile) Then sNewestFile = ""

   GetNewestFile = sNewestFile

End Function