Dim F As Integer
F = FreeFile
Open Label1.Caption For Binary Lock Read Write As #F
If Err.Number = 70 Then
    MsgBox "Datei ist in Verwendund!"
End If
On Error GoTo 0
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de