escritura concurrente en un fichero

[OssoH]

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

[Hendrix]

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

[OssoH]

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

[Hendrix]

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

[OssoH]

Muchas gracias, capto la idea

[Eternal Idol]

Si usas la API de Windows (CreateFile) podes especificar los permisos para compartir los archivos.