Vbscript email attachment : I'm writing a vbscript to send email notification when file arrives in Test folder

I want to attach that file to my email.please help

The file name is not constant,each time a file arrives with different name.
Below is my code 


Const PATH = "F:\Test"

dim fso: set fso = CreateObject("Scripting.FileSystemObject")

dim folder: set folder = fso.getFolder(PATH)

if folder.files.Count <> 0 then

strSMTPFrom = "errorfile@test.com"

strSMTPTo = "test@test.com"

strSMTPRelay = "127.0.0.1"

strTextBody = "The attached file arrived in Test folder"

strSubject = "File arrived in Test folder"

strAttachment = 

Set oMessage = CreateObject("CDO.Message")

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

oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPRelay

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

oMessage.Configuration.Fields.Update

oMessage.Subject = strSubject
oMessage.From = strSMTPFrom

oMessage.To = strSMTPTo

oMessage.TextBody = strTextBody

oMessage.AddAttachment strAttachment

oMessage.Send

end if


