Send e-mail with an attachment using vb.net

Hey freinds,
Below is the  code snippet which attaches files from my computer and sends an e-mail to the specified address ;
Dim directoryInfo As DirectoryInfo = New DirectoryInfo("C:\Reports\")
            Dim fileInfoList() As FileInfo = directoryInfo.GetFiles()

            Dim file As FileInfo
            For Each file In fileInfoList

                Console.WriteLine("File Name: " + file.Name)
                Console.WriteLine("File Name with Email Address: " + file.Name + "ToEmailId")

             &nbs ...