[يونس علي]

السلام عليكم ورحمة الله وبركاته 

ومساء الخير لكل من في هذا المنتدى 

احب منتدى وبمن فيى الى قلبي

قمت بتعديل بسيط بالكود

كود :

    Private Sub ExportToVcard_Click(sender As Object, e As EventArgs) Handles ExportToVcard.Click
        Dim vcf = New StringBuilder()
       
        For i As Integer = 0 To DataGridView1.Rows.Count - 1 - 1

            vcf.Append("BEGIN:VCARD" & System.Environment.NewLine)
            vcf.Append("VERSION:3.0" & System.Environment.NewLine)
            vcf.Append("TEL;type=HOME;type=VOICE;type=pref:" &
                       DataGridView1("mobile_phone", i).Value & System.Environment.NewLine)
            vcf.Append("FN:" & DataGridView1("first_name", i).Value & " " +
                       DataGridView1("last_name", i).Value & System.Environment.NewLine)
            vcf.Append("X-GROUP-MEMBERSHIP:My Contacts" & Environment.NewLine)
            vcf.Append("END:VCARD" & System.Environment.NewLine)
        Next

        Dim filename = Application.StartupPath + "/card.vcf"
        System.IO.File.WriteAllText(filename, vcf.ToString())
    End Sub