Private Sub Command8_Click()
GetDriveHandle "e:"
nummer$ = CStr(GetPhysDriveNumber(lngFileHandle))
CloseDriveHandle
GetDriveHandle2 nummer$
End Sub

Sub GetDriveHandle2(Drivenummer$)
CreateFileError = 0
ReadFileError = 0
FileName$ = "\\.\PHYSICALDRIVE" & Drivenummer$
lngFileHandle = CreateFile(FileName$, GENERIC_READ Or GENERIC_WRITE, _
  FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, _
  FILE_ATTRIBUTE_NORMAL, ByVal 0)
 
    'Bei Fehlschlag aussteigen2
    If (lngFileHandle = INVALID_HANDLE_VALUE) Then
        MsgBox "Invalid handle!"
        CreateFileError = 1
        Exit Sub
    Else
        MsgBox "File handle:" & Str$(lngFileHandle)
    End If
 
End Sub

Zitat:

Hidden Sectors: 251 Number of FAT copies: 2 (Was heißt das??) Sectors per FAT: 242 FAT copy(1) starts at 4 (Absolut gesehen dann also 255) FAT copy(2) starts at 246 (entspricht dann 497) Rootdirectory starts at 488 (entspricht 739) RootDirectoryLength: 31 (Endet also bei 770)