Acceso a sectores desde VB

[wyxchari]

Option Explicit

Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Any, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function SetFilePointer Lib "kernel32" _
(ByVal hFile As Long, _
ByVal lDistanceToMove As Long, _
lpDistanceToMoveHigh As Long, _
ByVal dwMoveMethod As Long) As Long

Private Declare Function ReadFile Lib "kernel32" _
(ByVal hFile As Long, _
lpBuffer As Any, _
ByVal nNumberOfBytesToRead As Long, _
lpNumberOfBytesRead As Long, _
lpOverlapped As Long) As Long

Private Declare Function WriteFile Lib "kernel32" _
(ByVal hFile As Long, _
lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
lpOverlapped As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long

Dim acc As Long 'flag de estar trabajando
Dim linea As String 'nueva linea
Dim q As Long 'temporal

Dim conta As Long 'contador de segundos
Dim qqa As Double, qqb As Double 'cálculos del timer
Dim qqcade As String 'unidades del timer

Dim hdevice As Long 'identificador de la unidad abierta
Const cbxc = 32768 'buffer de cadena para lectura o grabación
Dim espa As String * cbxc 'cadena lectura o grabación
Dim cadeo As String 'cadena original
Dim cadeg As String 'cadena grabar
Dim cadele As String 'cadema leída
Dim ret As Long 'bytes leidos o grabados

Dim tfat As String 'tipo de fat
Dim bxs As Double 'bytes por sector
Dim sxc As Double 'sectores por cluster
Dim bxc As Double 'bytes por cluster
Dim sxf As Double 'sectores por fat
Dim res As Double 'sectores reservados
Dim scd As Double 'primer sector de datos
Dim mft As Double 'cluster inicio MFT
Dim mftm As Double 'cluster inicio MFT mirror
Dim stt As Double 'sectores totales

Dim cluster As Double 'cluster actual
Dim cluini As Double 'cluster inicial
Dim clufin As Double 'cluster final
Dim byt As Long 'bytes de desplazamiento desde inicio unidad
Dim byt2 As Long 'bytes de desplazamiento2 desde inicio unidad
Dim q2 As Double 'temporal de byt
Dim nfat As Double 'sectores de desplazamiento de FAT para FAT1 y FAT2
Dim des As Double 'bytes de desplazamiento dentro de FAT
Const unidad = "G:" ' Unidad lógica del disco a abrir <<--------------------