Visual Basic

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

Private Sub BlaBlaBla()
  Try
    'some code here
    Try
      'some other code here
    Catch ex as Exception
      MsgBox(ex.ToString)
      'and/or some code here
    End Try
    'and even more code here
  Catch ex as Exception
    MsgBox(ex.ToString)
    'and/or some code here
  End Try
  Try
    'and just to make sure, some other code here
  Catch ex as Exception
    MsgBox(ex.ToString)
    'and/or some code here
  End Try
  'etc, etc, etc.
End Sub

Public appLog As New System.Diagnostics.EventLog("Application", ".", appTitle)

appLog.WriteEntry(ex.ToString, EventLogEntryType.Error)