Как узнать, какой процесс блокирует файл?

Function IsBookOpen(wbFullName As String) As Boolean
    Dim iFF As Integer
    iFF = FreeFile
    On Error Resume Next
    Open wbFullName For Random Access Read Write Lock Read Write As #iFF
    Close #iFF
    IsBookOpen = Err
End Function

Option Explicit
 
Private Const GENERIC_WRITE           As Long = &H40000000
Private Const GENERIC_READ            As Long = &H80000000
Private Const FILE_READ_DATA          As Long = (&H1)
Private Const FILE_WRITE_DATA         As Long = (&H2)
Private Const FILE_APPEND_DATA        As Long = (&H4)
Private Const FILE_READ_EA            As Long = (&H8)
Private Const FILE_WRITE_EA           As Long = (&H10)
Private Const FILE_EXECUTE            As Long = (&H20)
Private Const FILE_READ_ATTRIBUTES    As Long = (&H80)
Private Const FILE_WRITE_ATTRIBUTES   As Long = (&H100)
Private Const CREATE_ALWAYS           As Long = 2
Private Const OPEN_EXISTING           As Long = 3
Private Const FILE_SHARE_READ         As Long = &H1
Private Const FILE_SHARE_WRITE        As Long = 2
Private Const FileAccessInformation   As Long = 8
Private Const FILE_ATTRIBUTE_NORMAL   As Long = &H80
 
Private Type FILE_ACCESS_INFORMATION
    AccessFlags As Long
End Type
 
Private Type IO_STATUS_BLOCK
    Status As Long
    Information As Long
End Type
 
Private Declare Function ZwQueryInformationFile Lib "ntdll.dll" ( _
                         ByVal hFile As Long, _
                         ByRef IoStatusBlock As Any, _
                         ByRef Buff As Any, _
                         ByVal bufSize As Long, _
                         ByVal FileInformation As Long) As Long
Private Declare Function CreateFile Lib "kernel32" _
                         Alias "CreateFileW" ( _
                         ByVal lpFileName As Long, _
                         ByVal dwDesiredAccess As Long, _
                         ByVal dwShareMode As Long, _
                         ByRef lpSecurityAttributes As Any, _
                         ByVal dwCreationDisposition As Long, _
                         ByVal dwFlagsAndAttributes As Long, _
                         ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
                         ByVal hObject As Long) As Long
                        
Private Sub Form_Load()
    Dim io_status   As IO_STATUS_BLOCK
    Dim hFile1      As Long
    Dim hFile2      As Long
    Dim accInf1     As FILE_ACCESS_INFORMATION
    Dim accInf2     As FILE_ACCESS_INFORMATION
    
    hFile1 = CreateFile(StrPtr("C:\Temp\test.txt"), GENERIC_READ Or GENERIC_WRITE, _
                        FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
    hFile2 = CreateFile(StrPtr("C:\Temp\test.txt"), GENERIC_READ, _
                        FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
    
    ZwQueryInformationFile hFile1, io_status, accInf1, Len(accInf1), FileAccessInformation
    ZwQueryInformationFile hFile2, io_status, accInf2, Len(accInf2), FileAccessInformation
    
    CloseHandle hFile2
    CloseHandle hFile1
    
    Debug.Print "Access mask for file1:",:  PrintAccess (accInf1.AccessFlags)
    Debug.Print "Access mask for file2:",:  PrintAccess (accInf2.AccessFlags)
    
End Sub
 
Private Sub PrintAccess( _
            ByVal lAccess As Long)
    Dim sResult As String
    
    If lAccess And FILE_READ_DATA Then AppendString sResult, "FILE_READ_DATA"
    If lAccess And FILE_WRITE_DATA Then AppendString sResult, "FILE_WRITE_DATA"
    If lAccess And FILE_APPEND_DATA Then AppendString sResult, "FILE_APPEND_DATA"
    If lAccess And FILE_READ_EA Then AppendString sResult, "FILE_READ_EA"
    If lAccess And FILE_WRITE_EA Then AppendString sResult, "FILE_WRITE_EA"
    If lAccess And FILE_EXECUTE Then AppendString sResult, "FILE_EXECUTE"
    If lAccess And FILE_READ_ATTRIBUTES Then AppendString sResult, "FILE_READ_ATTRIBUTES"
    If lAccess And FILE_WRITE_ATTRIBUTES Then AppendString sResult, "FILE_WRITE_ATTRIBUTES"
    
    Debug.Print Hex(lAccess), sResult
    
End Sub
 
Private Sub AppendString( _
            ByRef sRes As String, _
            ByRef sAppended As String)
    If Len(sRes) Then
        sRes = sRes & " | " & sAppended
    Else
        sRes = sAppended
    End If
End Sub