1、用API函数GetDiskFreeSpaceEx获取磁盘空间
 
    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
 
   Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click
        Dim BytesFreeToCalller As Long, TotalBytes As Long
        Dim TotalFreeBytes As Long, TotalBytesUsed As Long
        Dim strResult As String
        Const RootPathName = "C:\"
        Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
        strResult = " Drive " & "C:\" & vbCrLf
        strResult += "磁盘容量(MB):" & Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf
        strResult += "可用空间(MB):" & Format(CDbl((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf
        strResult += "已用空间(MB):" & Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") & vbCrLf
        MsgBox(strResult)
    End Sub
 
 
2、用FSO(文件系统对象模型)实现
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下：
在项目菜单中选择引用，在COM中选择Microsoft Scripting Runtime
在代码最顶端添加Imports Scripting，在按钮的单击事件中加入以下代码：
 
Imports Scripting
 
    Private Sub btnFso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click
        Dim Fso As New FileSystemObject
        Dim drvDisk As Drive, strResult As String
        drvDisk = Fso.GetDrive("C:\")
        strResult = "Drive " & "C:\" & vbCrLf
        strResult += "磁盘卷标:" & drvDisk.VolumeName & vbCrLf
        strResult += "磁盘序列号:" & drvDisk.SerialNumber & vbCrLf
        strResult += "磁盘类型:" & drvDisk.DriveType & vbCrLf
        strResult += "文件系统:" & drvDisk.FileSystem & vbCrLf
        strResult += "磁盘容量(G): " & FormatNumber(((drvDisk.TotalSize / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf
        strResult += "可用空间(G): " & FormatNumber(((drvDisk.FreeSpace / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf
        strResult += "已用空间(G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 1024) / 1024) / 1024), 2, , , Microsoft.VisualBasic.TriState.True)
        MsgBox(strResult)
    End Sub
 
 
3、用API函数GetVolumeInformation获取逻辑盘序列号
 
    Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
     (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal _
     nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Long, _
     ByVal lpMaximumComponentLength As Integer, ByVal lpFileSystemFlags As Integer, ByVal _
     lpFileSystemNameB