Используя функции GetDriveType и GetDiskFreeSpace определить тип диска и количество байт в секторе на диске

Public Class Form1
    'Declare Function GetDiskFreeSpace Lib "kernel32.dll" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, ByVal lpSectorsPerCluster As Integer, ByVal lpBytesPerSector As Integer, ByVal lpNumberOfFreeClusters As Integer, ByVal lpTotalNumberOfClusters As Integer) As Integer
    Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer
 
    Private Declare Function GetDiskFreeSpaceEx _
     Lib "kernel32" _
     Alias "GetDiskFreeSpaceExA" _
     (ByVal lpDirectoryName As String, _
     ByRef lpFreeBytesAvailableToCaller As Long, _
     ByRef lpTotalNumberOfBytes As Long, _
     ByRef lpTotalNumberOfFreeBytes As Long) As Long
 
    Public Const DRIVE_RAMDISK = 6
    Public Const DRIVE_REMOVABLE = 2
    Public Const DRIVE_FIXED = 3
    Public Const DRIVE_REMOTE = 4
    Public Const DRIVERVERSION = 0      '  Device driver version
    Public Const DRIVE_CDROM = 5
 
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim drivetype As Long
        drivetype = GetDriveType("d:\")
        If drivetype = 0 Then MsgBox("Error")
        If drivetype = 1 Then MsgBox("Диск D:\ не существует.")
        If drivetype = DRIVE_RAMDISK Then MsgBox("Диск D:\ Ram диск.")
        If drivetype = DRIVE_REMOVABLE Then MsgBox("Диск D:\ сменный диск.")
        If drivetype = DRIVE_FIXED Then MsgBox("Диск D:\ жесткий диск.")
        If drivetype = DRIVE_CDROM Then MsgBox("Диск D:\ CD-ROM.")
        If drivetype = DRIVE_REMOTE Then MsgBox("Диск D:\ Сетевой диск.")
        'If drivetype = nDrive Then  msgbox("Диск D:\ Корневой каталог диска.")
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' Считаем и отображаем количество свободного места и общего объема диска D:
        MsgBox("Total " & GetTotalSpace("D:\") & " MB")
        MsgBox("Free " & GetFreeSpace("D:\") & " MB")
 
    End Sub
    Public Function GetFreeSpace(ByVal Drive As String) As Long
        'returns free space in MB, formatted to two decimal places
        'e.g., msgbox("Free Space on C: "& GetFreeSpace("C:\") & "MB")
 
        Dim lBytesTotal, lFreeBytes, lFreeBytesAvailable As Long
 
        Dim iAns As Long
 
        iAns = GetDiskFreeSpaceEx(Drive, lFreeBytesAvailable, _
             lBytesTotal, lFreeBytes)
        If ians > 0 Then
 
            Return BytesToMegabytes(lFreeBytes)
        Else
            Throw New Exception("Invalid or unreadable drive")
        End If
 
 
    End Function
 
 
    Public Function GetTotalSpace(ByVal Drive As String) As String
        'returns total space in MB, formatted to two decimal places
        'e.g., msgbox("Free Space on C: "& GetTotalSpace("C:\") & "MB")
 
        Dim lBytesTotal, lFreeBytes, lFreeBytesAvailable As Long
 
        Dim iAns As Long
 
        iAns = GetDiskFreeSpaceEx(Drive, lFreeBytesAvailable, _
             lBytesTotal, lFreeBytes)
        If iAns > 0 Then
 
            Return BytesToMegabytes(lBytesTotal)
        Else
            Throw New Exception("Invalid or unreadable drive")
        End If
    End Function
 
    Private Function BytesToMegabytes(ByVal Bytes As Long) _
    As Long
 
 
        Dim dblAns As Double
        dblAns = (Bytes / 1024) / 1024
        BytesToMegabytes = Format(dblAns, "###,###,##0.00")
 
    End Function
End Class

Return BytesToMegabytes(lFreeBytes)

Return lFreeBytes