VB6 capire se un file è aperto.

[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??