[VB.NET] Lettura/scrittura file.txt

[spider81man]

Errori pacchiani :P
ecco il codice destatto:

        Dim sw As StreamWriter
        Dim appo As String
        'MsgBox(Application.StartupPath)

        If File.Exists("reg.log") = False Then
            sw = File.CreateText(Application.StartupPath & "\reg.log")
            sw.WriteLine("parola/frase da scrivere nel file")
            sw.Flush()
            sw.Close()
        Else
            Dim path As String = (Application.StartupPath & "\reg.log")
            Dim sr As StreamReader = New StreamReader(path)
            appo = sr.ReadLine()
            sw = File.CreateText(Application.StartupPath & "\reg2.log")
            sw.WriteLine(appo)
            sw.Flush()
            sw.Close()
        End If