Check om fil er åben

Jeg har et problem, jeg er ved at skrive et VB som overskriver filer, jeg skal derfor checke om filen er i brug inden jeg kan overskrive, måden jeg checker dette er følgende:

Public Function FileInUse(pFile As String) As Boolean
FileInUse = False
Dim h As Integer

On Error Resume Next

\' get a file handle
h = FreeFile()

Open pFile For Random Access Read Write Lock Read Write As #h

If Err.Number = 0 Then
    Close #h
Else
    FileInUse = True
End If
End Function

Mit problem består i, at de filer som jeg skal overskrive altid er skrivebeskyttede. Derfor virker min funktion ikke da, den prøver at åben filen.

Any ideas til en anden måde at checke på eller ændring af min kode ????