Allora ragazzi io ho fatto così:
codice:
        Dim sw As StreamWriter
        Dim appo As String

        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 path2 As String = (Application.StartupPath & "\reg2.log")
            Dim sr As StreamReader = New StreamReader(path)
            appo = sr.ReadLine()
            Dim Streamwriter As StreamWriter = New StreamWriter(path2)
            Streamwriter.WriteLine(appo)
        End If

    End Sub
Quindi se il file non c'è me lòo crea, se c'è prende il contenuto del primo e crea il secondo.
La cosa è che non mi da errore ma il II° file è vuoto come mai???