Visual Basic

using (StreamWriter MyFile = new StreamWriter(Application.StartupPath+"\\output.csv"))
{ 
for (int i = 0; i < dataGridView1.RowCount; i++)
{
stLine = "";
for (int j = 0; j < dataGridView1.Rows(i).Cells.Count; j++)
{
 stLine = stLine + grdResults.Rows.Item(i).Cells.Item(j).Value + ",";
}
MyFile.WriteLine(stLine);
}
MessageBox.Show(Application.StartupPath.toString()+"\\output.csv");
    }
}

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stline As String
        Dim MyFile As New StreamWriter(Application.StartupPath + "\\output.csv")
        Dim i, j As Integer
        For i = 0 To DataGridView1.RowCount - 1
            stline = ""
            For j = 0 To DataGridView1.Rows(i).Cells.Count
                stline = stline + DataGridView1.Item(i, j).ToString + ","
                MyFile.WriteLine(stline)
            Next
        Next
        MessageBox.Show(Application.StartupPath.ToString() + "\\output.csv")
    End Sub
End Class

Dim smtpClient As New Net.Mail.SmtpClient()
Dim mail As New Net.Mail.MailMessage()
'create the message to be sent
mail.To.Add("test@test.com") ' Enter the Email of the person you want to send the mail to
mail.From = New Net.Mail.MailAddress("username@gmail.com", "Your Display Name") ' Enter Your email address
mail.Subject = "Test Message"
mail.Body = "This is a test message"
' Prepare the client to send the above message
'Attach the file as attachment
mail.Attachments.Add(new System.Net.Mail.Attachment("yourFileName.xls"))
smtpClient.Host = "smtp.gmail.com"
smtpClient.EnableSsl = True
smtpClient.Port = 587
smtpClient.Credentials = New Net.NetworkCredential("username@gmail.com", "password") 'Enter username and password of the account , you want to use to send mail
smtpClient.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
smtpClient.Send(mail)

GDMFSOB wrote:

I think somekind of a dns interseptor would work but dont know how to handle traffic routing in .net.

C#:
 textBox1.Text = listBox1.Items[1].ToString().Split(new char[] { ',' })[2];
 textBox2.Text = listBox1.Items[3].ToString().Split(new char[] { ',' })[4]; 


VB:
 textBox1.Text = listBox1.Items(1).ToString().Split(New Char() {","c})(2)
 textBox2.Text = listBox1.Items(3).ToString().Split(New Char() {","c})(4)

With OpenFileDialog1
      .InitialDirectory = sDefaultDirectory
      .Filter = "Access Database (*.mdb)|*.mdb"
      .ShowDialog()
End With

If Directory.Exists(path) Then 'path contains the path of directory<br />
            Dim dir_info As New DirectoryInfo(path)<br />
            Dim file_infos() As FileInfo<br />
            file_infos = dir_info.GetFiles("*.mdb")<br />
        End If