VB.NET'te Append Problemi

[gokhanozbulak]

Selam

Visual Basic( .NET 2005)'te admin ekleme ile ilgili bir formum var, Bu form ile admin hesabı ekleyecek olan kullanıcıdan kullanıcı adı,şifre,mail ve sistemindeki bir resim dosyasının yolunu alıyorum. Ama başlangıçta bu yola geçerli bir değer atadım yani geçerli bir resmim var. Resim değişikliği yapmadan kullanıcı bilgilerini girip formdan aldığım tüm stringleri bir string şekilde birleştirdikten sonra(row) append moduyla açtığım bir admin.txt dosyasının sonuna ekliyorum. Bu durumda bir sorunla karşılaşmıyorum. Ancak yeni resim eklemek için resim yolunu bir OpenFileDialog nesnesi ile alıp row adlı stringi bu doğrultuda güncellediğimde dosyaya ekleme işlemi gerçekleştirilemiyor.

Not: defaultImagePath Form'un alt alanı

Form görüntüsü:



Kod:

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
            If TextBox2.Text = TextBox3.Text Then
                Dim row As String = TextBox1.Text & "#" & TextBox2.Text & "#" & TextBox4.Text & "#" & defaultImagePath

                'Time to add admin account into admin.txt file.
                FileOpen(1, "admin.txt", OpenMode.Append)
                PrintLine(1, row)
                FileClose(1)

                MsgBox("Account created successfully", MsgBoxStyle.OkOnly)
                Me.Close()
            Else
                MsgBox("Password you entered couldn't be verified.", MsgBoxStyle.Critical)
            End If
        Else
            MsgBox("Please, fulfill required fields.", MsgBoxStyle.Exclamation)

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        OpenFileDialog1.Filter = "Image Files (*.jpg,*.jpeg,*.gif)|*.jpg;*.jpeg;*.gif"
        OpenFileDialog1.FilterIndex = 3

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            defaultImagePath = OpenFileDialog1.FileName
            PictureBox1.Image = System.Drawing.Image.FromFile(defaultImagePath)
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        End If
    End Sub