VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
来源:互联网 发布:暗黑启示录2java破解版 编辑:程序博客网 时间:2024/05/21 16:23
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下:
在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime
在代码最顶端添加Imports Scripting,在按钮的单击事件中加入以下代码:
Imports Scripting
Private Sub btnFso_Click()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
Private Sub btnFso_Click()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
转自 中国.NET论坛
- VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
- VB.NET下获取硬盘信息的几种方法
- VB.NET下获取硬盘信息的几种方法
- 认识 VB 的文件系统对象 FSO
- 认识VB的文件系统对象FSO
- 认识 VB 的文件系统对象 FSO
- FSO对象模型在VB中的应用
- FSO对象模型在VB中的应用
- FSO对象模型在VB中的应用
- VB 中 FSO 对象模型介绍
- [转载]VB.NET下获取硬盘信息的几种方法
- [转] VB.NET下获取硬盘信息的几种方法
- VB.NET获取硬盘信息的几种方法
- VB.NET获取硬盘信息的几种方法
- VB.NET获取硬盘信息的几种方法
- VB--FSO对象模型在VB中的应用
- 认识VB的文件系统对象--FSO
- fso对象模型
- Windows XP and Windows Update Version 5
- 在VS2005 环境下面使用.NET Framework 1.1 进行编译
- .NET委托:一个关于C#的睡前故事
- 常去的技术网站
- Enhanced SAX Handler : 比 DOM 还简单的SAX Handler
- VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
- hp-ux下oracle的安装
- struts Bean 标签库
- swt 内幕?
- 用.NET创建Windows服务(转)
- Struts异常机制(ExceptionHandling)——转载
- 关于CIS的一整套东西
- 拓朴排序
- 散列查找