社区
VB
帖子详情
怎样获得磁盘的相关信息?
azuretitan
2003-08-19 07:32:28
包括获得磁盘的总容量,可用容量,已用容量,磁盘卷标号,磁盘序列号等!
...全文
54
2
打赏
收藏
怎样获得磁盘的相关信息?
包括获得磁盘的总容量,可用容量,已用容量,磁盘卷标号,磁盘序列号等!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lz305
2003-08-19
打赏
举报
回复
用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
孟子E章
2003-08-19
打赏
举报
回复
http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=6977HLMY-ELPN-4KIR-BI89-7YS2LNENT5HR
c#获取网络中某台计算机的
磁盘
信息
摘要:C#源码,网络
相关
,
磁盘
信息
c#获取网络中某台计算机的
磁盘
信息
,得到
磁盘
总容量,可用
磁盘
空间,
磁盘
剩余空间等
信息
,了解一下用C#是如何通过网络访问机并读取对方电脑的驱动器
信息
的。
python实现查询计算机cpu,bios,主板,显卡,内存,
磁盘
等
相关
信息
(最全代码)
python实现查询计算机cpu,bios,主板,显卡,内存,
磁盘
等
相关
信息
VB
磁盘
碎片整理-分类整理
磁盘
文件.rar
获得
文件夹的个数,引用一个Stripting Runtime 对象,将文件列表框中显示的文件名添加到列表框中,在刷新数据之前清空List控件中的
信息
,检索相同的扩展名文件等,虽然是
磁盘
碎片整理的,但实质上就是文件的操作。
硬盘简略
信息
显示与
磁盘
卷标设定,VB源代码.rar
VB编写的一个与硬盘属性
信息
读取的小程序,硬盘
信息
的显示与卷标的设定,调用GetVolumeInformation函数,
获得
所选盘符的卷标、分区格式
信息
,变量i的值在大写字母A到大写字母Z之间,下拉列表框动态加载数据。
Delphi GetDriveType获取是否是移动
磁盘
驱动器.rar
获取电脑中的
磁盘
是否是可移动
磁盘
,并以列表出来,鼠标双击列表中的任意
磁盘
,会显示出该
磁盘
的详细
信息
,包括:总
磁盘
空间、有效空间、总簇大孝空簇数目等,可编写以下代码实现部分
磁盘
信息
获取功能: c := chr...
VB
16,553
社区成员
110,527
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章