Fout in script streamwriter?

[kantersjojo]

Hallo,

Ik heb onderstaande script in mijn project staan maar op een of andere manier werkt streamwriter niet

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If System.IO.File.Exists("BLCconfig.cfg") = False Then
            System.IO.File.Create("BLCconfig.cfg")
            Dim objWriter As New System.IO.StreamWriter("BLCconfig.cfg")
            objWriter.WriteLine("-")
            objWriter.WriteLine("-")
            objWriter.WriteLine("-")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.Close()
            Me.Close()
            MsgBox("Benodigde bestanden zijn aangemaakt. herstart programma a.u.b.")
        Else
            Dim BLCconfig As Object
            BLCconfig = My.Computer.FileSystem.OpenTextFileReader("BLCconfig.cfg")
            Me.TextBox1.Text = BLCconfig.readline()
            Me.TextBox2.Text = BLCconfig.readline()
            Me.TextBox3.Text = BLCconfig.readline()
            Me.TextBox4.Text = BLCconfig.readline()
            Me.TextBox5.Text = BLCconfig.readline()
            Me.TextBox6.Text = BLCconfig.readline()
            BLCconfig.close()
        End If
    End Sub

het bestand word wel aangemaakt maar er wordt niets in geschreven en ik krijg de messagebox. Iemand een idee? Ik kom er niet meer uit.

 

[kantersjojo]

Ik heb het opgelost. Er bleek iets te zijn met mijn debugging. Het ging niet meer naar de standaard debug map. (Ik werkte dus met een oude debug )

Ik heb hieruit wel een andere vraag:
Als ik de app voor het eerste opstart krijg ik de error dat er niet geschreven kan worden naar BLCconfig.cfg omdat het is gebruik is door een ander process. Ik denk denk dat dit komt door ik eerst moet verifieren of het aanmaken van het bestand gelukt is voordat ik erin schrijf. Iemand een idee hoe ik dit het best kan doen met het script hierboven?

 

[kantersjojo]

Opgelost.

System.IO.File.Create("BLCconfig.cfg")

is overbodig. de werkende code is

If System.IO.File.Exists("BLCconfig.cfg") = False Then
            Dim objWriter As New System.IO.StreamWriter("BLCconfig.cfg")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.WriteLine("TEXT")
            objWriter.Close()
            MsgBox("Benodigde bestanden zijn aangemaakt. herstart programma a.u.b.")
            Me.Close()


        Else
            Dim BLCconfig As Object
            BLCconfig = My.Computer.FileSystem.OpenTextFileReader("BLCconfig.cfg")
            Me.TextBox1.Text = BLCconfig.readline()
            Me.TextBox2.Text = BLCconfig.readline()
            Me.TextBox3.Text = BLCconfig.readline()
            Me.TextBox4.Text = BLCconfig.readline()
            Me.TextBox5.Text = BLCconfig.readline()
            Me.TextBox6.Text = BLCconfig.readline()
            Me.TextBox7.Text = BLCconfig.readline()
            BLCconfig.close()
        End If
    End Sub

Bedankt voor de hulp..ulp....lp....p.....