Public Const GENERIC_WRITE As Integer = &H40000000
    Public Const GENERIC_READ As Integer = &H80000000
 
    Public Const FILE_ATTRIBUTE_NORMAL As Integer = &H80
    Public Const CREATE_NEW As Integer = 1
    Public Const CREATE_ALWAYS As Integer = 2
    Public Const OPEN_EXISTING As Integer = 3
    Public Const OPEN_ALWAYS As Integer = 4
 
    Public Const TRUNCATE_EXISTING As Integer = 5
 
    Public Const FILE_SHARE_READ As Integer = &H1
    Public Const FILE_READ_EA As Integer = &H8
    Public Const FILE_SHARE_WRITE As Integer = &H2
 
    Public Const INVALID_HANDLE_VALUE As Integer = -1
 
    <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 IntPtr
 
    End Function
 
    Public Sub cftest()
        Dim h As IntPtr = CreateFile("\\?\C:\windows\angler.bmp", GENERIC_READ, _
          FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
        If h <> INVALID_HANDLE_VALUE 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