说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB6编程中如何获取硬盘分区信息

HTML文档下载 WORD文档下载 PDF文档下载
VB6编程中如何获取硬盘分区信息

  也许你并不了解硬盘分区信息应该包括些什么,但如果你曾经对硬盘分过区,你或许对此有所了解,在此为各位介绍一个用VB编写的获取硬盘分区信息的程序。在这个程序中,它将详细地告诉你:你的硬盘总容量、分过几个区、每个区的总容量、及现在剩余的可用容量、硬盘分区表为几位(即是FAT32还是FAT16),每个分区是几个字节……怎么样?够完整详细了吧!好的,就让我们一起来看一下吧:
  首先做准备工作:在FORM1上新建二个LABEL(LABEL1和LABEL2)一个COMMAND1命令按钮。然后输入以下代码:
  Private Declare Function GetDriveType Lib
  kernel32“Alias "GetDriveTypeA(ByVal nDrive As String) As Long
  Private Declare Function GetDiskFreeSpace Lib“kernel32" Alias“GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
  Private Const DRIVE_FIXED = 3
  Private Sub Form_Load() '作初始化设置
  COMMAND1.Caption = “测试硬盘"
  Form1.Caption = “测试硬盘程序"
  Label1.WordWrap = True
  Label1.Caption = “"
  Label2.WordWrap = True
  Label2.Caption = “"
  End Sub
  Private Sub COMMAND1_Click()
  Dim DriveNum As Integer
  Dim TempDrive As String
  Dim X As Long
  For DriveNum = 97 To 122 Step 1 '检测从A-Z(盘符)
  TempDrive = GetDriveType(Chr(DriveNum) & “:\")
  Select Case TempDrive '如是3则表示是硬盘,测试你有几个盘
  Case 3: X = GetDiskSpace(Chr(DriveNum)) '调用子程序
  End Select
  Next DriveNum
  End Sub
  Public Function GetDiskSpace(DrivePath As String)
  Dim Drive As String
  Dim SectorsPerCluster As Long
  Dim BytesPerSector As Long
  Dim NumberOfFreeClusters As Long
  Dim TotalClusters As Long
  Dim Check As Integer
  Dim DiskSpace
  Dim diskTotal
  Static AllDiskTotal As Long
  Static NUM As Integer
  NUM = NUM + 1 '分几个区的计算
  Drive = Left(Trim(DrivePath), 1) & “:\"
  Check = GetDiskFreeSpace(Drive, SectorsPerCluster, BytesPerSector, NumberOfFreeClusters, TotalClusters)
  If Check <> 0 Then
  DiskSpace = SectorsPerCluster * BytesPerSector * NumberOfFreeClusters
  '这是一个分区磁盘剩余空间的计算公式
  DiskSpace = Format$(DiskSpace, “###,###") '以规定格式显示,如732,324,231
  diskTotal = SectorsPerCluster * BytesPerSector * TotalClusters
  '这是一个分区磁盘总容量的计算公式
  diskTotal = Format$(diskTotal, “###,###")
  AllDiskTotal = AllDiskTotal + diskTotal '整个硬盘的总容量
  Label1.Caption =“你的硬盘总容量为:” & Format$(AllDiskTotal,“###,###") &个字节,即:” & Left(AllDiskTotal, 1) & . & Mid(AllDiskTotal, 2, 1) &“G,一共分了”& NUM &“个区,其中:"
   Label2.Caption = Label2.Caption & UCase(DrivePath) & “盘的整个容量为:" & diskTotal &“个字节" & ",其剩余磁盘空间为:“& DiskSpace & " 个字节,磁盘已FAT“& SectorsPerCluster & ",每个分区为:“& BytesPerSector & "个字节。“& vbCrLf & vbCrLf”
  End If
  End Function
  OK!现在你运行一下,你是否满意它?
  注:以上程序在中文WINDOWS98,中文VB6.0企业版中调试通过。(上海 季昭君)
[开源推荐]CecOS:企业级的云操作系统和虚拟化平台 Avangate SaaS模式开启全球软件新营销之门 Android平台的两大移动威胁现状与变化趋势 推荐五款优秀的PHP代码重构工具 11个值得注意的安全问题及应对,第12个高端黑 微软新举措:打通Windows和WP开发者账户,下调注册费用 合并两应用商店的前兆?微软开始合并Windows Store和WP开发者账户 最难忘的Bug调试经历 LiveCode:让每个人都能开发APP的开发平台 17173总经理赵佳:媒体移动化需抓住三大要素 Django 1.6发布 支持持久数据库链接 如何优化单页面网站搜索引擎? TechCrunch国际创新峰会将于上海举行 极路由:一场由路由器引发的概念盛宴 14nm制程:三星64bit处理器 Exynos 6/S曝光 从Oracle到MySQL,余额宝云实践分享 从南水北调东线工程看物联网,大数据的另一面 不只是技术!成为IT经理必备的十大软技能 看看传说5亿行代码的Healthcare.gov网站的架构 如何走出选择PHP还是ASP.NET的两难境地? 你的设计够档次吗?分享25个奇异的404页面 百度LBS推Openmap战略:无编程经验者可通过拖拽制作个性化地图应用 百万用户时尚分享网站feed系统扩展实践 Twitter上市首战告捷的四大因素 大幕将启!MDCC2013移动开发者大会下周召开 TUP第30期:微软资深专家论如何用Visual Studio开发iOS、Android应用 [开源推荐]Riot.js:不足1KB的MVP客户端框架 研发周报:最难忘的Bug调试经历 NSA如何侵入Google和雅虎的私有数据网络? 飞天5K:开放比开源更有意义 MDCC之移动娱乐游戏峰会:手游金玩奖即将揭晓 如何得到 QQ 的安装路径 最新Google登陆方 fireworks高手请看(100分) 请问那位高手在sco上编译成功了gcc,用的是那个版本,指导一下在下,谢先 调用存储过程出错,如何解决,在线等,谢谢! 怎么使用(MultiPage,TabStrip)这2个控件来实现界面分多页的操作功能。 给我这样的代码,我给你100分(在线等,急用,我快疯了!) 我的JSP的WEB服务器oracle公司的ias,数据库是oracle,中文显示乱码,请教转换??? 立即加分!!帮忙up也送分!调用COM程序时,出现“在单一线程模式下,试图在一个以上线程进行呼叫”错误,如何是好? b/s模式下如何读取sql,oricle等关系型数据库中的数据? 急!!很菜的问题!NT4下的设备管理器在哪? oracle 在linux上的性能问题? 关于manifest.tmp文件(大侠帮忙!) 请帮我的忙,好吗!!! 系统怎么不是很稳定? 请问一下各位,哪里有可下的lotus 认证教材和试题,多谢多谢!! 寻求控件编写技术下载网址。 谜语:请问CLP和CLS是什么汉语的简写? up有分!★关于《网络编程〉中的问题★:如何设计udp/ip的完成端口模式,udp协议不需要accept.... 关于重定项问题? are there any software in linux, just as netant,office etc in windows? ASP的中文問題 请问:测试工程师的工作是什么?主要测试软件的哪些项目? (100分征集)如何做使得访问JSP服务器时不用加端口号(当然不能用80)?? 菜鸟求助:关于句柄的问题。请高手多多指教 请问什么是存储过程(在SQL 2000SERVER中)? 1000分的大问题!***************怎么突破内存禁区读写的权限 java学什么?怎么学? java学什么?怎么学? 高分急救:Oracle安装完成后,服务可以启动,数据库不与服务一起启动,要手动启动 如何让启动时不自动进入x windows? 下载问题 如何得到CPU的序列号(编程) 向ActiveX控件是否可以传递数组参数 can i read or copy files in windows OS to linux? 什么错误? 将SYBASE数据库移植到SQL SERVER 过程中遇到的问题。急!help session问题 为什么我的web不能进断点? SO_REUSEADDR的疑问 关于web数据库的问题 怎么解??? 再送100分,求jtable例子! 怎样清除在image上画出的线,矩形(在运行时画上去的)?? 寻找在杭州文三路创业大厦11楼上班的朋友 where can i download simsun, and how can i use it? IIS与Apache一起工作,访问Apache时有什么办法不用指定端口? 是不是微软的一个低级漏洞? 谢谢zheng017给你的win2k superuser password的源程序。 在access2000的开发中,text框中如果只输入了空格,用text1.value取数据返回值却是null,如何能够返回空格呢? 强烈推荐:Robocode! 302不锈钢价格?湖南不锈钢管、钢板一般一根有多长啊 有关宇宙大爆炸理论的几个问题如果同几百亿度温度,物质会以什么形态存在?爆炸时可供膨胀的空间是怎么出现的 爆炸大爆炸最基本的动力是怎么来的? (答题形式)铝合金的表面处理的方法及原因 宇宙大爆炸产生元素的顺序是什么? 关于宇宙大爆炸理论的问题科学第6册的教科书上向我们说明了大爆炸理论,运用了气球实验来类比说明.通过气球上点的距离不断增大来类比星系间的距离不断增大,而此时的气球的体积变化正 已知数列{an},{bn}满足:a1=3,当n>=2时,a(n-1)+an=4n;对于任意的正整数n,b1+2b2+…+2^(n-1)bn=nan.设{bn}的前n项和为Sn.(1)计算a2,a3,并求数列{an}的通项公式;(2)求满足13 同步带分类,pu带钢丝和线绳哪种好 奶牛的能量单位NND 和DCP具体指什么 也就是他的中文解释是什么? 已知数列an中,a1=-1,an+an-1+4n+2=0,若bn=an+2n(n∈N*),求证,1:数列bn是的等差数列2:求an的通项公式 关于能量守恒定律的的矛盾问题我是高二的学生,曾想过,既然万有引力定律引起了地月系统中地球的潮汐能,那么万有引力的能量哪来的?我自己推想过答案,可能是想太阳那样类似于核聚变生 环丙烷和丙烯谁的支链多? 已知数列{an}{bn}满足a1=3,当n≧2时,an-1+an=4n,对于任意的正整数n,b1+2*b2+…+2^(n-1)bn=n*an设﹛bn﹜的前n项和为Sn(1)求数列{an}的通项公式 (2)求满足13<Sn<14的集合 齿轮的顶直径是54 齿轮的牙有52 个请问他的模数是多少? 硫易溶于哪种溶液中? 塑料的导电性如何测试?是测试体积电阻率吗?单位是Ω·cm吗?可是资料给出的结果是E12,E3,E12 E3是体积电阻率的等级吗?和Ω·cm如何换算呢? 对可逆反应来说,使用催化剂的作用是为什么是 以同等程度改变正逆反应速率而不是 增大正反应速率,减小逆反应速率 汽车皮带(同步带)这些规格分别是什么意思?MR,RU,ZA,ZBS,S8M,YM,YU 177MR25,130MR25,129MR31,88ZA19 请多多指教! 问题:做地砖用的原料有毒或对身体有害吗吗? 煤矿开采,皮顺与轨顺怎么布置? 物理力学;如果两个力的夹角大于90度而小于180度,则合力一定随着其中的一个力增大而增大吗 五年级苹果说明文200怎么写 如何提高受均布荷载的简支梁的承载力,选择增加梁根数可以吗? 为什么力与速度的夹角大于90度小于180度就做减速运动why 地理的等高线地图中三角形符号代表“山峰”还是“山顶”? 煤矿中的破 装 运 支 回, 真空砖机的真空原理 如何提高真空砖机的真空原理 以苹果为题,尽快! 能量守恒定律在什么情况下提出来看的? 真空砖机与普通砖机有什么区别 高中地理什么是河流集水方向?在等高线地形图上方向表示为垂直于等高线么? 橡胶同步带加胶一般要加多厚的胶? 真空砖机哪个牌子好用想买真空砖机,不知道哪个牌子好呢 将一定质量的铁铝铜合金加入1L一定浓度的硝酸中完全溶解测得溶液(忽略溶液体积的变化) c(H+)=0.5mol/ L c(Cu2+)=0.3mol/L c(Al3+)=0.2mol/L c(NO3-)=2mol/L 则混合物中铁的质量为6g Fe₂O₃能不能直接转换成Fe Cl₂ 请给我一张生物进化图(从原始生物到人类)要清晰、中文、字体大还要有史前生物简介 我的意思是请大家自己弄来简介,麻烦了!在这里先谢谢各位 做自由落体运动的物体,最后5S内的位移恰好是前一段时间位移的3倍,求物体开始下落的位置距面的高度H和物体着地时的S速度V 功放板电源要求双12V用单的怎么样?要求双12,我于是想了一个办法,找一个单14V的变压器,把其中一根线分为两根,接上也可以用,不知对功放有没有影响? Cl+O₃→ClO+O₂,ClO+O→Cl+O₂;算不算链式反应?我觉得链式反应好像只用于燃烧与核,但这也是个循环啊? 哪家的真空砖机好?哪家便宜? 数学题 lim(an^2+bn-100)/(3n-1) =2 求ab的值大神们帮帮忙 判断下列物质的空间构型:I₃¯、O₃、AsO₃²ˉ、SO₂Cl₂请写出步骤 在6140车床上把32圆的不锈钢加工到20圆的台阶轴怎么选择主轴转速背吃刀量进给量 如何在一个正负12V供电功放板上添加led电源指示灯? 1.一定条件下磷与干燥Cl₂反映,若12.4g磷消耗掉15.68LCl₂(标准状况),则产物中PCl₃与PCl5的物质的量之比接近于( )A.1:2 B.2:3 C.3:1 D.5:32.在4℃时向100L水中溶解了22.4LHC气体(标准状况 加工阶梯轴时,刀具主偏角如何选取 我有一块双电源功放板,现想用一个直流12V干电池单电源供电,请指教 你是否注意到下面有趣的结果:1₃=1₂,1₃+2₃=3₂,1₃+2₃+3̀你是否注意到下面有趣的结果:1₃=1₂,1₃+2₃=3₂,1₃+2₃+3₃=6₂,1₃+2 烷烃能不能溶于四氯化碳? 定尺钢板与不定尺钢板的价格相差多少 LED灯用开关电源好还是用恒流源好? 烷烃易溶于什么? 在线等 今天早上四川是否又地震了?我刚被女朋友的电话吵醒/说家里又地震了/而且晃动还挺大的/哪位朋友知道是哪个地方的主震区吗?震级多少? 同步带什么情况下选择氯丁橡胶,什么情况下选择聚氨酯的 四氯化碳算是烷烃吗? 梁ABCD尺寸及荷载如图所示,试求支座A,B处的约束反力 英语翻译有没有简称 及俗称?像PVC ,PE ,PP 之类的,非常感谢你及时的回签! 问一个有关自由落体的题……要详细步骤……越详细越好……跳伞员从360m的高空自由下落一段距离后才打开伞,设打开伞之后以2m/s2的加速度减速下降,到达地面时的速度为4m/s,求他下降的总时 如何知道一座桥桩基声测管钢板,钢管用多少米,总共长度如何计算? 同步带轮材质的选择?主要是选择铝合金和S45C的区别 物体做自由落体运动时是不是就等于处在完全失重状态中?请解释一下完全失重状态,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘