Email all files in a directory as attachment

[FastEddie]

How can I email all this files in this directory as attachments?

        Dim di As New IO.DirectoryInfo("\\Server\Company\D1\")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo

        Dim message As New MailMessage( _
        "[email protected]", _
        "[email protected]", _
        "Test Order", _
        "Test Order")
        For Each dra In diar1
            MailMessage.
        Next

        Dim emailClient As New SmtpClient("mail.fe.com")
        emailClient.Send(message)
    End Sub