Tengo varios clientes que escriben de vez en cuando sobre EL MISMO fichero txt. Todos no escriben a la vez, pero podría darse la casualidad que si. Cada vez que desea escribir uno de ellos algo, lo que hago es abrir el fichero, lo escribo y a continuación cierro el fichero. Pero, ¿ que pasaría si la escritura se realizara al mismo tiempo por dos clientes? ¿que pasaria si un cliente cerrará el fichero, cuando otro cliente esta escribiendo en él?
En definitiva, quiero solucionar la escritura concurrente de datos en un fichero. Alguien se le ocurre alguna idea ?
Gracias
No se puede...si uno intenta abrir el archivo mienras otro lo tiene habierto saldra un kartelito del tipo:
Otro programa esta utilizando este archivo
Prueba a hacer esto:
en el form_load pon esto:
Private Sub Form_Load()
Open "C:\Windows\regedit.exe" For Binary As #1
End Sub
Ahora ve a Inicio/ejecutar y escribe esto: regedit.exe
Veras lo que te sale... ;) ;) ;)
Salu2
ajá
entonces se me ocurre que lo mejor será que cada usuario escriba su propio fichero txt, en lugar de todos los clientes el mismo.
Gracias
O puedes hacer un Bucle....mira, declara esta funcion:
Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t1 As Date, t2 As Date
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub
Y luego en sub que se lean pon esto:
On error goto Fallo:
y luego al final del sub pon esto:
Fallo:
wait (2) ' espera 2 segundos
Command1_Click
Asi lo que ara sera esperar dos segundos y volvera a entrar al sub....
Pero si lo eskriben por separado tambien esta bien....
Salu2
Muchas gracias, capto la idea :)
Si usas la API de Windows (CreateFile) podes especificar los permisos para compartir los archivos.