Obtener Estructura Encabezado DBF Desde Visual Basic .Net

A continuación les traigo una pequeña clase que les permitirá obtener los siguientes datos del encabezado de un archivo DBF.

•  version (Byte)
•  updateYear (Byte)
•  updateMonth (Byte)
•  updateDay (Byte)
•  numRecords (Int32)
•  headerLen (Int16)
• recordLen (Int16)
• reserved1 (Int16)
• incompleteTrans (Byte)
• encryptionFlag (Byte)
• reserved2 (Int32)
• reserved3 (Int64)
• MDX (Byte)
• language (Byte)
• reserved4 (Int16)

 
Referencias:

Imports System.IO.Path
Imports System.IO
Imports System.Runtime.InteropServices

Public Class Fox

  Public Structure DBFHeader
        Public version As Byte
        Public updateYear As Byte
        Public updateMonth As Byte
        Public updateDay As Byte
        Public numRecords As Int32
        Public headerLen As Int16
        Public recordLen As Int16
        Public reserved1 As Int16
        Public incompleteTrans As Byte
        Public encryptionFlag As Byte
        Public reserved2 As Int32
        Public reserved3 As Int64
        Public MDX As Byte
        Public language As Byte
        Public reserved4 As Int16
    End Structure

 Shared Function HeaderDBF(ByVal dbfFile As String) As DBFHeader

        Dim br As BinaryReader = New BinaryReader(File.OpenRead(dbfFile))
        Dim buffer() As Byte
        buffer = br.ReadBytes(Marshal.SizeOf(GetType(DBFHeader)))

        Dim handle As GCHandle = GCHandle.Alloc(buffer, GCHandleType.Pinned)
        Dim header As DBFHeader
        header = Marshal.PtrToStructure(handle.AddrOfPinnedObject(), GetType(DBFHeader))
        handle.Free()

        Return header

    End Function

End Class

Modo de uso

  Dim header As New Fox.DBFHeader
  header = Fox.HeaderDBF("C:\Prueba.DBF")

Espero sea de su utilidad y recuerden ante cualquier consulta dejen sus comentarios.

Saludos