VB6 capire se un file è aperto.

[fosforo]

Ciao
Avrei necessità di rilevare se un determinato file è tenuto bloccato dal sistema operativo perchè ancora in scritura.
Ho provato leggendo gli attributi del file ma non ho trovato nulla di interessante.

Esiste una possibilità??

Grazie

[oregon]

Tenta di aprirlo e gestisci l'errore ...

[fosforo]

Giusto.

ff = FreeFile
Open "c:\sample.txt" For Random Access Write As #ff
Close #ff

errHandler:
MsgBox "File is Open"

Ne approfitto con un'altra domanda:
come si crea una loop fino a che il file venga chiuso??