Fórum exportando arq txt VB.NET erro: ´File already open´ #19756

Imports System
Imports System.IO
Imports System.Text

Public Class Test
    Public Shared Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        Try
            If File.Exists(path) Then
                ´ Note that no lock is put on the
                ´ file and the possibliity exists
                ´ that another process could do 
                ´ something with it between
                ´ the calls to Exists and Delete.
                File.Delete(path)
            End If
            ´ Create the file.
            Dim fs As FileStream = File.Create(path)
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")

            ´ Add some information to the file.
            fs.Write(info, 0, info.Length)
            fs.Close()

            ´ Open the stream and read it back.
            Dim sr As StreamReader = File.OpenText(path)
            Do While sr.Peek() >= 0
                Console.WriteLine(sr.ReadLine())
            Loop
            sr.Close()
        Catch ex As Exception
            Console.WriteLine(ex)       
        End Try
    End Sub
End Class