Error al abrir archivo
Publicado por Byron (12 intervenciones) el 01/06/2004 22:27:37
Al ejecutar las instrucciones:
Set fil1 = fso.GetFile("Entrada.dat")
Set ts = fil1.OpenAsTextStream(ForWriting, TristateUseDefault)
En ciertas ocasiones me da error 70 en el openAsTextStream (porque se puede dar el caso que alguien más lo esté usando). Lo que yo necesito es que si me da este error 70, esperar un momento y luego volver a intentar abrirlo. Lo que tengo acutalmente es:
On Error GoTo errorOutput
set fil1 = fso.GetFile("Entrada.dat")
Set ts = fil1.OpenAsTextStream(ForWriting, TristateUseDefault)
strMensaje = "Grabación con * del archivo de entrada"
On Error GoTo ErrorProceso
ts.WriteLine "*" & regLeido
strMensaje = "Cierre del archivo de entrada con *"
ts.Close
aplicación y eso es lo que quiero evitar ya que el programa debe estar en un loop infinito.
Set fil1 = fso.GetFile("Entrada.dat")
Set ts = fil1.OpenAsTextStream(ForWriting, TristateUseDefault)
En ciertas ocasiones me da error 70 en el openAsTextStream (porque se puede dar el caso que alguien más lo esté usando). Lo que yo necesito es que si me da este error 70, esperar un momento y luego volver a intentar abrirlo. Lo que tengo acutalmente es:
On Error GoTo errorOutput
set fil1 = fso.GetFile("Entrada.dat")
Set ts = fil1.OpenAsTextStream(ForWriting, TristateUseDefault)
strMensaje = "Grabación con * del archivo de entrada"
On Error GoTo ErrorProceso
ts.WriteLine "*" & regLeido
strMensaje = "Cierre del archivo de entrada con *"
ts.Close
aplicación y eso es lo que quiero evitar ya que el programa debe estar en un loop infinito.
Valora esta pregunta
0