VB如何得到磁盘使用率？
Option Explicit
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" _
Alias "GetDiskFreeSpaceExA" _
(ByVal lpRootPathName As String, _
lpFreeBytesAvailableToCaller As Currency, _
lpTotalNumberOfBytes As Currency, _
lpTotalNumberOfFreeBytes As Currency) As LongDim r As Long
Dim BytesFreeToCalller As Currency
Dim TotalBytes As Currency
Dim TotalFreeBytes As Currency
Dim TotalBytesUsed As Currency
Dim RootPathName As String
Dim DiskName As String
Private Sub exit_Click()
Unload Me
End SubPrivate Sub Form_Load()Timer1.Interval = 100 '每0.1秒发生一次Timer事件Drive1.Drive = "c:"checkdiskform.Left = (Screen.Width - checkdiskform.Width) / 2
checkdiskform.Top = (Screen.Height - checkdiskform.Height) / 2End SubPrivate Sub Timer1_Timer()RootPathName = Drive1.Drive
RootPathName = Mid(RootPathName, 1, 2)
DiskName = StrConv(Left(RootPathName, 1), vbUpperCase)On Error GoTo errhandler
Dir1.Path = Drive1.DriveDim x As StringLabel1 = DiskName + "盘的容量信息"
'调用API函数获取容量信息
r = GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
'用FORMAT函数输出习惯的数据显示格式
total.Text = Format$(TotalBytes * 10000, "###,###,###,##0")
free.Text = Format$(TotalFreeBytes * 10000, "###,###,###,##0")
used.Text = Format$((TotalBytes - TotalFreeBytes) * 10000, "###,###,###,##0")
Exit Suberrhandler:
frmErr.ShowEnd Sub '一下确认是否插入磁盘
Private Sub cmdCancel_Click()
Unload Me
checkdiskform.Drive1.Drive = "c:"
End SubPrivate Sub Form_Load()
Me.Top = (Screen.Height - checkdiskform.Height) / 2 + (checkdiskform.Height - Me.Height) / 2
Me.Left = (Screen.Width - checkdiskform.Width) / 2 + (checkdiskform.Width - Me.Width) / 2
lblMsg.Caption = "请将磁盘插入驱动器" & UCase(checkdiskform.Drive1.Drive) & "。"If checkdiskform.Drive1.Drive "a:" Then
picDrv.Picture = LoadPicture("CDDRIVE.ico")
Else
picDrv.Picture = LoadPicture("35FLOPPY.ico")
End IfEnd Sub
高级代码！ 至宝
'引用 Microsoft Scripting Runtime
Dim fso As New FileSystemObject, drv As Drive
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
Print "剩余空间大小:" & drv.FreeSpace / 1024 / 1024
Print "磁盘大小:" & drv.TotalSize / 1024 / 1024
Option Explicit
Private Declare Function SHGetDiskFreeSpace Lib "shell32" Alias "SHGetDiskFreeSpaceA" (ByVal pszVolume As String, pqwFreeCaller As Currency, pqwTot As Currency, pqwFree As Currency) As Long
Dim mydisk As String
Dim diskfree As Currency, disktotal As Currency, Free As Currency
Private Sub Drive1_Change()
mydisk = Drive1.Drive & "\"
SHGetDiskFreeSpace mydisk, diskfree, disktotal, Free
Text1 = Format(disktotal / 104857, "0.00")
Text2 = Format((disktotal - diskfree) / 104857, "0.00")
Text3 = Format(diskfree / 104857, "0.00")
Text4 = Format(100 * (disktotal - diskfree) / disktotal, "0.00")
If Text4.Text < 0.2 Then MsgBox ("您的C盘磁盘空间不足，请清除无用文件！！")
End Sub
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Label1.Caption = "全部磁盘容量为： GB"
Label2.Caption = "磁盘已用空间为： GB"
Label3.Caption = "磁盘剩余空间为： GB"
Label4.Caption = "磁盘利用情况%： %"
Drive1.Drive = "C:"
End Sub
vb什么版本？
U盘被格式化了,请问假如在A电脑上把U盘给格了,能在B电脑上通过软件把数...
如果0磁道损坏,按照目前的普通方法是无法使数据完整恢复的,通常0磁道损坏的硬盘,可以通过PCTOOLS的DE磁盘编辑器(或者DiskMan)来使0磁道偏转一个扇区,使用1磁道来作为0磁道来进行使用。而数据可以通过Easyrecovery来按照簇进行恢复,但数据无法保证得到完全恢复。 3、分区表损坏时的数据修复 硬盘主引导记录(MBR)所在的...
Win7系统中怎么运用bootice对磁盘进行分区-搜狗输入法
2、在弹出来的Bbootice页面，选择将被格式化的磁盘后点击【分区管理】；3、点击【重新分区】；4、设置分区格式，勾选【按此扇区数的整数倍对齐分区】，勾选【MBR分区表】，最后点击【确定】；5、在系统弹出窗口中点击【是】，用户就可以马上得到磁盘分区的序号和ID。以上是我用bootice进行对Win7系统...
【电脑】为什么硬盘要划分分区后才能使用,为社么不能直接使用???
在使用DOS 6.x或Win 9x时,系统为磁盘等存储设备命名盘符时有一定的规律,如A:和B:为软驱专用,而C:～Z:则作为硬盘、光驱以及其它存储设备共用,但系统为所有的存储设备命名时将根据一定的规律。例如我们为一块硬盘建立分区时如果只建一个主分区,那么这块硬盘就只有一个盘符“C:”;如果不但建有主分区而且还建有...
BXP无盘工作原理AND理论知识
在这种模式下,每个BXP工作站分配一个专用的虚拟磁盘。客户可以任意修改系统的数据,并可以得到保存。优点:每个工作站独立地使用自己的磁盘映象,且可以保存文件。 工作站的可以使用不同的硬件 (若要使用一样的虚拟磁盘映象,则硬件配置要求是相同的)。 缺点: 增加网络负荷。 每个工作站要使用独立的磁盘映象,所以占用...
移动硬盘如何使用?
2022-10-21 · TA获得超过862个赞 知道小有建树答主 回答量:152 采纳率:94% 帮助的人:32.2万 我也去答题访问个人页 展开全部 问题一:新买的移动硬盘如何使用? 首先接入电脑,点击控制面板--管理工具--计算机管理--磁盘管理。在这里找到移动硬盘,然后右键单海盘符,就可以根据盘符格式化、分区。建议分...
磁盘里的MB。GB。B等都是怎么排大小的?
"1TB=1024GB 1GB=1024MB 1MB=1024KB 1KB=1024Byte 注：Byte就是B也就是字节 KB是千字节 MB是兆 GB是吉字节 即千兆 TB是太字节 在计算机中是采用二进制，这样造成在操作系统中对容量的计算是以每1024为一进制的，每1024字节为1KB，每1024KB为1MB，每1024MB为1GB；而硬盘厂商在计算容量方面是以...
b+树的插入,删除,如何计算磁盘读写的次数
目前数据库多采用两级索引的B+树，树的层次最多三层。因此可能需要5次磁盘访问才能更新一条记录（三次磁盘访问获得数据索引及行ID，然后再进行一次数据文件读操作及一次数据文件写操作）。
如何将已有的电脑硬盘装到另一台电脑上?
电脑a的硬盘不需要格式化，只需要在装到b电脑时，注意sata接口要插在比b硬盘的sata口的数字后面，以免影响开机电脑b的硬盘引导顺序，造成系统引导到a硬盘。
win7系统磁盘 启用 BitLocker(B)加密如何还原
这个我不会。给磁盘加密，我使用的是U盘超级加密3000.
怎么在bios设置电脑硬盘引导顺序
3、接着，完成上述步骤后，选择“first boot device”，按Enter进入，如下图所示，然后进入下一步。4、然后，在弹出窗口中，将光标移动到“ HDD”开头的选项，然后按Enter确认，如下图所示，然后进入下一步。5、最后，按F10保存设置并重新启动计算机，即可从硬盘进入计算机系统了，如下图所示。这样，...
朝封帮君： Option Explicit Private Declare Function GetDiskFreeSpaceEx Lib ＂kernel32＂ _ Alias ＂GetDiskFreeSpaceExA＂ _ (ByVal lpRootPathName As String, _ lpFreeBytesAvailableToCaller As Currency, _ lpTotalNumberOfBytes As Currency, _ ...
塔什库尔干塔吉克自治县17518094594： VB 如何获取硬盘温度 - ？
朝封帮君： 首先运行VB 6中文版,建立一个标准的exe工程,将窗体命名为frmmain,borderstyle属性设为:3-fixed,caption,属性设置为空;接着添加一个frame控件——“frame1”,caption属性设置为空,再添加picturebox控件pctPrg,前景色为绿色,背景...
塔什库尔干塔吉克自治县17518094594： 急!在VB2008中怎么获取系统的CPU使用率???？
朝封帮君： -_-nbsp;简单,用system.Managementnbsp;(特别注意需要引用system.management先)nbsp;具体见下面图片中的代码nbsp;-----------------再加出代码吧,怕你看不清图片nbsp;Publicnbsp;Classnbsp;pcSpeednbsp;Dimnbsp;mpcnbsp;...
塔什库尔干塔吉克自治县17518094594： vb.net 如何获取当前系统的CPU使用率 - ？
朝封帮君： 使用wmi 类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率 示例代码: Private Sub Timer1_Timer()Dim WMI服务 As ObjectDim 对象 As ObjectDim 子对象 As ObjectDim 电脑名 As StringDim 刷新 As Long刷新 = 0电脑...
塔什库尔干塔吉克自治县17518094594： VB如何获取硬件信息比如CPU温度,显卡,CPUID号之类的、 - ？
朝封帮君： VB无法调用电脑硬件信息,须要启用数据库
塔什库尔干塔吉克自治县17518094594： 如何使vb程序占用的内存资源最少? - ？
朝封帮君： 首先 计算机内能存东西的有 硬盘 内存 显存 显存:在VB中 也可以说在其它语言的编程 都是不能直接像硬盘内存那样直接访问的(通过接口调用访问),所以不用考虑 内存:现在的内存 是越来越大的.如果只是几M 你也不用考虑.绝对够用. 在...
塔什库尔干塔吉克自治县17518094594： 如果动态磁盘做了镜像,那么磁盘利用率为什么 - ？
朝封帮君： 做镜像就是软raid1,两块盘内容一样,磁盘利用率为50%,与硬raid1是一样的利用率,但是性能会差一些.
塔什库尔干塔吉克自治县17518094594： 什么人不能开公司 ？
朝封帮君： 不能开公司的人有:1、无民事行为能力的人:2、国家公务员、党政机关的干部和职工;3、不具备相应的资金、公司章程、公司名称、组织机构、住所的人.《中华人民...
塔什库尔干塔吉克自治县17518094594： 发蜡怎么抓背头(发蜡怎么抓) ？
朝封帮君： 1、不要弄太多在手上了,一点点的弄,千万不要全部弄在头发上抓.2、那样抓不散,一点点的弄在你需要打理的头发上,在搓一下就可以弄出你喜欢的发型了.
塔什库尔干塔吉克自治县17518094594： 如何解决虚拟内存不足(虚拟内存不足怎么办) ？
朝封帮君： 1、在上边单击“自定义大小” 并输入“初始大小”和“最大值”,最后按“设置”按钮,再确定即可.2、512的内存已经偏小了,如果是DDR2的话,还是换个内存条好一点!
