Aquí va una opción:
Código:
'Creamos la variable global llamada "fichero_abierto", que puede tomar valor verdadero (true) o falso (false)
Public fichero_abierto As Boolean
Inmediatamente después de abrir el fichero de texto, añades esta línea:
Cuando hayas acabado de trabajar con el fichero, y justo después de cerrarlo, le pones el valor a false:
Para que no te salga el mensaje de que el fichero ya está abierto, antes haces una comprobación del estado de la variable global:
Código:
if fichero_abierto = false then
'Abres el fichero y trabajas con él, porque está cerrado
end if
Salu2