CSV_TXT_OlarakKaydet("C:\Datagrid_csv" & Format(Now, "dd_MM_yyyy_hh_mm_ss") & ".csv", DataGridView1, "Buraya istediğiniz bir şey yazın")

Public Function CSV_TXT_OlarakKaydet(ByVal filename As String, ByVal lv_dgw As Object, ByVal strbaslik As String) As Boolean
        Dim deg As String, baslik As String, ustbaslik As String
        Try
            Dim os As New IO.StreamWriter(filename, True, System.Text.Encoding.GetEncoding("iso-8859-9"))
            'Başlıklar yazılıyor
            ustbaslik = UCase(Replace(Replace(strbaslik, "ı", "I"), "i", "İ"))
            If ustbaslik = "ID" Then ustbaslik = " " & ustbaslik
            os.WriteLine(ustbaslik, vbNewLine)
            If (TypeName(lv_dgw)) = "ListView" Then
                For i As Integer = 0 To lv_dgw.Columns.Count - 1
                    baslik = lv_dgw.Columns(i).Text.Replace("""", """""")
                    If UCase(Replace(Replace(baslik, "ı", "I"), "i", "İ")) = "ID" Then baslik = " ID"
                    deg = deg & ";" & baslik
                Next
            End If
            If (TypeName(lv_dgw)) = "DataGridView" Then
                For i As Integer = 0 To lv_dgw.Columns.Count - 1
                    baslik = lv_dgw.Columns(i).HeaderText.Replace("""", """""")
                    If UCase(Replace(Replace(baslik, "ı", "I"), "i", "İ")) = "ID" Then baslik = " ID"
                    deg = deg & ";" & baslik
                Next
            End If
            If TypeName(lv_dgw) <> "ListBox" And TypeName(lv_dgw) <> "ComboBox" Then
                deg = Right(deg, Len(deg) - 1)
                os.WriteLine(deg, vbNewLine)
            End If
            'satırlar Kaydediliyor
            If TypeName(lv_dgw) = "ListView" Then
                For i As Integer = 0 To lv_dgw.Items.Count - 1
                    deg = ""
                    For j As Integer = 0 To lv_dgw.Columns.Count - 1
                        If lv_dgw.Items(i).SubItems(j).Text <> "" Then
                            deg = deg & ";" & lv_dgw.Items(i).SubItems(j).Text.Replace("""", """""")
                        Else
                            deg = deg & ";" & lv_dgw.Items(i).SubItems(j).Text
                        End If
 
                    Next
                    deg = Right(deg, Len(deg) - 1)
                    os.WriteLine(deg, vbNewLine)
                Next
            End If
            If (TypeName(lv_dgw)) = "DataGridView" Then
                For i As Integer = 0 To lv_dgw.rowcount() - 1
                    deg = ""
                    For j As Integer = 0 To lv_dgw.Columns.Count - 1
                        If lv_dgw.Item(j, i).value <> "" Then
                            deg = deg & ";" & Replace(lv_dgw.Item(j, i).value, """", """""")
                        Else
                            deg = deg & ";" & lv_dgw.Item(j, i).value
                        End If
                    Next
                    deg = Right(deg, Len(deg) - 1)
                    os.WriteLine(deg, vbNewLine)
                Next
            End If
            If TypeName(lv_dgw) = "ListBox" Or TypeName(lv_dgw) = "ComboBox" Then
                For i As Integer = 0 To lv_dgw.items.count() - 1
                    deg = ""
                    If lv_dgw.Items(i) <> "" Then
                        deg = Replace(lv_dgw.Items(i), """", """""")
                    Else
                        deg = lv_dgw.Items(i)
                    End If
                    os.WriteLine(deg, vbNewLine)
                Next
            End If
            os.Flush()
            os.Close()
        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function