hi all,
im creating a csv file from sql querry, after that im sending this csv file with email, after i sent the mail i wanna delete the csv file but it says 'its using by another....' dont know how to resolve this. thanks for help.
this is my export csv function
Function ExportCsv()
Dim filePath As String = "C:\FULLWork\csv\limit_dosya.csv"
Dim delimiter As String = ";"
Dim sb As New StringBuilder()
For i As Integer = 0 To DataGridView1.Rows.Count - 1
Dim array As String() = New String(DataGridView1.Columns.Count - 1) {}
If i.Equals(0) Then
For j As Integer = 0 To DataGridView1.Columns.Count - 1
array(j) = DataGridView1.Columns(j).HeaderText
Next
sb.AppendLine([String].Join(delimiter, array))
End If
For j As Integer = 0 To DataGridView1.Columns.Count - 1
If Not DataGridView1.Rows(i).IsNewRow Then
array(j) = DataGridView1(j, i).Value.ToString()
End If
Next
If Not DataGridView1.Rows(i).IsNewRow Then
sb.AppendLine([String].Join(delimiter, array))
End If
Next
If File.Exists("c:\FULLWork\csv\limit_dosya.csv") Then
File.Delete("c:\FULLWork\csv\limit_dosya.csv")
Else
File.WriteAllText(filePath, sb.ToString(), System.Text.Encoding.Default)
End If
End Function
and my send mail function
Function MailGonder()
Dim mail As New MailMessage()
mail.From = New MailAddress("baris.sen@full.com.tr")
mail.[To].Add("kurumsalsatis@full.com.tr,baris.sen@full.com.tr,tevhit.kocabey@full.com.tr")
mail.Subject = "Limit Dosyası"
mail.Body = "Limit Dosyası Ektedir."
Dim smtp As New SmtpClient("EXCHANGE.asya.local")
smtp.Credentials = New Net.NetworkCredential("baris.sen", "password")
Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment("c:\FULLWork\csv\limit_dosya.csv")
mail.Attachments.Add(oAttch)
Try
smtp.Send(mail)
Catch exc As Exception
End Try
End Function