怎样获得磁盘的相关信息？

[azuretitan]

包括获得磁盘的总容量，可用容量，已用容量，磁盘卷标号，磁盘序列号等！

[孟子E章]

http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=6977HLMY-ELPN-4KIR-BI89-7YS2LNENT5HR

[lz305]

用FSO(文件系统对象模型)可以实现上述功能.
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中,它同包含了DRIVE、FOLDER、FILE、FILESYSTEMOBJECT、TEXTSTREAM五个对象。
调用方法如下：
在项目菜单中选择引用，在COM中选择MICROSOFT SCRIPTING RUNNTIME 在代码最顶端添加
IMPORTS SCRIPTING
在代码模块中添加 DIM FSOTEST AS NEW FILESYSTEMOBJECT
在按钮的单击事件中加入以下代码：
Dim drv1 As Drive, sReturn As String
Dim drvspace As String
drv1 = FsoText.GetDrive("c:\")
sReturn = "Drive " & "C:\" & vbCrLf
sReturn = sReturn & "磁盘卷标:" & drv1.VolumeName & vbCrLf
sReturn = sReturn & "磁盘容量: " & FormatNumber(((drv1.TotalSize / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True)
sReturn = sReturn & "G" & vbCrLf
drvspace = (((drv1.TotalSize / 1024) / 1024) / 1024) - (((drv1.FreeSpace / 1024) / 1024) / 1024)
sReturn = sReturn & "可用空间: " & FormatNumber(((drv1.FreeSpace / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True)
sReturn = sReturn & "G" & vbCrLf
sReturn = sReturn & "已用空间:" & FormatNumber(drvspace, 2, , , Microsoft.VisualBasic.TriState.True)
sReturn = sReturn & "G" & vbCrLf
sReturn = sReturn & "文件系统:" & drv1.FileSystem & vbCrLf
sReturn = sReturn & "磁盘序列号:" & drv1.SerialNumber & vbCrLf
sReturn = sReturn & "磁盘类型:" & drv1.DriveType & vbCrLf
'MsgBox(sReturn)
txtbox.Text = sReturn
End Sub