[emadtm]

عزيزي محمد بوقزاحة هذا الكود
Dim csv As String = String.Empty
Dim save_file As New SaveFileDialog
save_file.Filter = "Csv Files (*.csv)|*.csv"
save_file.FileName = "newsave"
' txtpathfile.Text = fName
If save_file.ShowDialog = Windows.Forms.DialogResult.OK Then


Dim headers = (From header As DataGridViewColumn In GridView1.Columns.Cast(Of DataGridViewColumn)() _
Select header.HeaderText).ToArray
Dim rows = From row As DataGridViewRow In GridView1.Rows.Cast(Of DataGridViewRow)() _
Where Not row.IsNewRow _
Select Array.ConvertAll(row.Cells.Cast(Of DataGridViewCell).ToArray, Function© If(c.Value IsNot Nothing, c.Value.ToString.Replace(" 12:00:00 ص", ""), ""))
' csv += row.Value.ToString().Replace(" 12:00:00 ص", "") & "|"c
Using sw As New IO.StreamWriter(save_file.FileName, Nothing, System.Text.Encoding.Unicode)

sw.WriteLine(String.Join("|", headers)) ', System.Text.Encoding.Unicode)
For Each r In rows
sw.WriteLine(String.Join("|", r)) ', System.Text.Encoding.Unicode)

Next
'save_file.FileName.Replace(".txt", ".csv")
End Using
End If