Exit Sub if file in array doesn't exist

[FastEddie]

I have been trying to figure out how to exit this sub if the number of files in di.GetFiles is 0 but I have not been able to do so. Can someone please help me with this?

        Dim di As New IO.DirectoryInfo(strFPath)
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo
        Dim message As New MailMessage

        message.From = New MailAddress(StrMailFrom)
        message.To.Add(strMailTo1)
        message.To.Add(strMailTo2)
        message.To.Add(strMailTo3)
        message.Subject = StrSubject
        message.Body = StrBody

        For Each dra In diar1
            message.Attachments.Add(New Attachment(dra.FullName))
        Next


        Dim emailClient As New SmtpClient(strMailServer)
        emailClient.Credentials = (SMTP_Cred)
        emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
        emailClient.EnableSsl = True
        Try
            emailClient.Send(message)
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbNewLine & ex.StackTrace)
        End Try