Open Label1.Caption For Binary Lock Read Write As #1
If Err.Number = 70 Then
    MsgBox "Datei ist in Verwendund!"
ElseIf Err.Number > 0 Then
  MsgBox "Fehler " & CStr(Err.Number) & ", " & Err.Description
End If
On Error GoTo 0
Close #1

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de