Foro de elhacker.net

Lo que pretendo hacer es lo siguiente ya tengo un listbox con los datos, deseo al ejecutar los datos de listbox1 que escribí de forma manual, al ejecutar el programa.

1 se guarden en un txt

2 desde luego aqui es donde tengo el problema de cerrar el txt para volver abrirlo, me aparece el error en un dialogo (El proceso no puede obtener acceso al archivo 'E:\12.txt' por que esta siendo utilizado en otro proceso.)

3 cargar los datos que se guardaron en el txt  cargalos en un listbox2

no entiendo mucho los códigos.



End Class

Imports System.IO
 
Public Class Form1
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim oSW As New StreamWriter("D:\12.txt")
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            Dim Linea = ListBox1.Items(i).ToString()  
            oSW.WriteLine(Linea)
            oSW.Flush()
 
        Next
 
 
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''CARGAR TXT
        Dim Archivo As System.IO.FileInfo = New FileInfo("D:\12.txt")
        Me.ListBox2.Items.Clear()
        Try
            Dim abrir As StreamReader = Archivo.OpenText
            Dim linea As String
            Do While abrir.Peek() > 0
                linea = abrir.ReadLine()
                Me.ListBox1.Items.Add(linea)
            Loop
            abrir.Close()
        Catch ex As SystemException
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "ERROR")
        End Try
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    End Sub
 
 

Cuando termines de manipular el archivo debes cerrar el stream llamando al método StreamWriter.Close()/StreamWriter.Dispose():

Dim oSW As New StreamWriter(...)
For ...
    oSW.WriteLine(...)
    ...
Next
oSW.Close()

Saludos