diseñe una aplicacion en windows form la cual genera un archivo de texto cada 5 min, y esta operando en una maquina en donde tiene instalado un Windows Service que se encarga de revisar el archivo que esta generando esta aplicacion, al detectar un cambio en el archivo, el lo lee y recupera los datos que cambiaron. Todo funcionaba bien pero ayer me salio este error (ya que coloque en el codigo un try-catch): "Exception from HRESULT: 0x800A0046 (CTL_E_PERMISSIONDENIED)" y este mensaje "the process cannot access the file because it is being used by another process". Comprendo que ocurre esto, porque en el mismo instante que estoy sobreescribiendo el archivo la aplicacion, el windows service esta revisando para saber si ocurrio un cambio, pero no se como arreglar este error en la aplicacion ya que no puedo tocar ni modificar el windows service, por favor ayuda. Aqui dejo el codigo de la aplicacion de windows:
Public Class Module1
Private Sub Main
Dim Frecuencia() As String
Dim Tiempo As Integer
Dim tiempo_ejecucion As Date
dim archive_name as string
ruta = "C:\Users\Developer\Documents"
Tiempo = 30000 'se ejecuta para 5 min'
Timer5.Enabled = True
Timer5.Interval = Tiempo
End Sub
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
Randomize()
Dim valor_random As Double
Dim Archivo As Object
Dim Instruccion As Object
Try
valor_random = (Rnd() * 0.1)
valor_random = FormatNumber(initialweight, 2)
Instruccion = CreateObject("Scripting.FileSystemObject")
Archivo=Instruccion.CreateTextFile("C:\Users\Developer\Documents\prueba.txt", True)
Archivo.writeline(valor_random)
Archivo.writeline(valor_random)
Archivo.writeline(valor_random)
Archivo.writeline(valor_random)
Archivo.writeline(valor_random)
Archivo.writeline(valor_random)
Archivo.close()
Catch x As Exception
MsgBox("error: " & x.Message)
End Try
End Sub
End Class
Asi es el codigo, ¿donde estara el error?