MANIPULAR ARQUIVOS TXT

MFLAVIO 05/09/2012 15:21:52
#409226
Ola pessoal tudo bem

preciso de uma ajuda com o seguinte

no meu sistema eu preciso criar um arquivo TXT com os pedidos

esse arquivo e transferido para outra empresa por um outro sistema

eu estou pegando os dados de um listbox onde estão os itens do pedido e crio um arquivo TXT
o 1 arquivo da certinho, mais quando o sistema vai criar o 2 arquivo gera um erro dizendo Arq esta fechado

arq e a variavel Strem que uso para criar o Arquivo.
agora se eu não fechar o Arq na hora que vou gravar as linhas no TXT dis que o arquivo TXT esta sendo usado por outro Recurso

alguma dica?

segue rotina que cria o TXT

   Private Sub CriaCupomTXT()
        Static Arq As New StreamWriter(SPath & [Ô]\CP.txt[Ô], False)
        Arq.WriteLine([Ô][Ô])
        Arq.WriteLine([Ô][Ô])
        Arq.Close()

        Using SW As New IO.StreamWriter(SPath & [Ô]\CP.txt[Ô], True)
            For Each itm As String In LST_cupom.Items
                SW.WriteLine(itm)
            Next
            SW.Dispose()
        End Using

        Arq.Dispose()
    End Sub
ALEVALE 05/09/2012 15:38:29
#409227 Resposta escolhida
Realmente você tem que fechar o arquivo após escrever nele:

Tenta assim:

Dim oEscrever As System.IO.StreamWriter
Dim fluxoTexto As IO.StreamWriter

oEscrever = File.CreateText([Ô]NOMEARQUIVO.TXT[Ô])
oEscrever.Close()

fluxoTexto = New IO.StreamWriter([Ô]NOMEARQUIVO.TXT[Ô],True)
fluxoTexto.WriteLine([Ô]TEXTO[Ô])
fluxoTexto.Close()
Tópico encerrado , respostas não são mais permitidas
Voltar