<DllImport("kernel32.dll", SetLastError:=True)> _
    Public Shared Function CreateFile _
        (ByVal lpFileName As String, _
        ByVal dwDesiredAccess As Integer, _
        ByVal dwShareMode As Integer, _
        ByVal lpSecurityAttributes As Integer, _
        ByVal dwCreationDisposition As Integer, _
        ByVal dwFlagsAndAttributes As Integer, _
        ByVal hTemplateFile As IntPtr) As SafeFileHandle
 
    End Function
 
    Public Sub cftest()
        Dim h As SafeFileHandle = CreateFile("\\?\C:\windows\angler.bmp", _
          GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, _
          FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
        If Not h.IsInvalid Then
            Dim fs As New IO.FileStream(h, IO.FileAccess.Read)
            Dim buff(fs.Length - 1) As Byte
            fs.Read(buff, 0, fs.Length)
            fs.Close()
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist