Problemas con StreamWriter

Buenos días compañeros, al ejecutar esta porción de código me salta un error
diciendome que el archivo esta en uso, como es eso posible???

Gracias.

If File.Exists(ArchivoLog) = True Then
EscribeLog = New StreamWriter(ArchivoLog, True)
EscribeLog.WriteLine("")
EscribeLog.WriteLine(Motivo & TimeStamp)
EscribeLog.WriteLine("")
EscribeLog = New StreamWriter(ArchivoLog, True)
EscribeLog.Write(OrigenLog.Text.ToCharArray)
EscribeLog.Close()
Else
EscribeLog = New StreamWriter(ArchivoLog, False)
EscribeLog.Write(OrigenLog.Text.ToCharArray)
EscribeLog.Close()
End If

me imaginoque el error te lo da en el bloque IF, si te fijas en la tercera
línea (empezando por el final), vuelves a abrir el archivo sin haberlo
cerrado...

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"Marcos Caballero" wrote in
message news:
Mostrar la cita

Buenos días compañeros, al ejecutar esta porción de código me salta un
error
diciendome que el archivo esta en uso, como es eso posible???

Gracias.

If File.Exists(ArchivoLog) = True Then
EscribeLog = New StreamWriter(ArchivoLog, True)
EscribeLog.WriteLine("")
EscribeLog.WriteLine(Motivo & TimeStamp)
EscribeLog.WriteLine("")
EscribeLog = New StreamWriter(ArchivoLog, True)
EscribeLog.Write(OrigenLog.Text.ToCharArray)
EscribeLog.Close()
Else
EscribeLog = New StreamWriter(ArchivoLog, False)
EscribeLog.Write(OrigenLog.Text.ToCharArray)
EscribeLog.Close()
End If