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

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企业版中调试通过。(上海 季昭君)
在 VB 中控制 Word 在GotFocus时快速选择文本 -VB资料 在VB中使用文件对象 在VB中使用艺术字 在VB中引用.dbf及索引文件 在Windows操作系统中改变文件打开方式-VB资料 在程序运行时,怎样把多个文本框的内容保存起来-VB资料 在打印字符串时自动换行 -VB资料 在文本框中快速增加一串字符-VB资料 在文本框中实现由加减号输入数据-VB资料 在引用项目找不到Excel、Word等Office软体Lib的解决法-VB资料 VB怎样从文件列表框中取得文件的完整路径和名称 VB制作一个有参数的执行文件(方法之简单难以想像) 资源档(.RES)的应用-VB资料 自定义Text的pop-up菜单-VB资料 自动出现动画、进度和确认的文件操作 -VB资料 自动选择 Text 的内容-VB资料 VB 调用 IMAGE 控件实现图像缩放的一种方法 VB5 实 现 窗 口 图 像 缩 放、 滚 动 技 巧 VB编程之提速攻略(一) VB开发通讯软件 VB实现图形动画的三种方法 VB随机图像的魅力 VB中不规则图形热点的实现 VB中任意旋转位图的实现 VB中实现图像特技 VB中随机图像的魅力 VB中位图旋转的实现 Visual Basic设计图形浏览器示例 捕捉屏幕图象 -VB资料 放置“透明”的图片-VB资料 如何使文本框只显示下面的边框? xsl求助~~~ 怎么将int转为CString 有的论坛采用从数据库得到帖子,有的使用shtml,有的使用xml,孰优???还有其他吗? 100分==在JSP中打开word文件的实例 紧急在线等一个很简单的问题 DTPicker 怎样和数据库绑定? 如何动态改变VB报表中Section中的一个与数据环境绑定的rptTextBox的颜色!(100分求教) datediff()这个函数怎么用哪位高手可否给小弟讲解一下急用在线等 和女友分手了,痛苦! 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 关于多个表通过相同的字段级联的问题,进来看看,一定给分! windowd server 2003许可证问题 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 求合作伙伴——推广抗非典病毒的消毒剂!!! 在表分区中,按某个varchar2的字段的值和范围如何分呢 我又來了,不僅你們煩,我更煩. 服务器端与客户端的问题 服务器端与客户端的问题 最后的问题,谢谢帮我看看 发现MS WINDOWS版的C标准库一个在BUG!!!!! 在用VFP操作EXCEL时出现无法用字段内容填充单元格问题,请各位帮忙看看. 算法 救命! 有没有rmi的好例程,一用就灵,急 fast report 和 qreport 到底应该用哪一个???(来者有分!!) 关于“数据结构书”的回应——版主莫删 如何进入另一个对话框 在一字符串中怎样取出某一个字符出现的次数. 急! infopower 2000、 3000、4000 Password?? 自定下载的问题,请教高手 如何屏蔽播放.wav文件但找不到相应.wav文件时发出的默认声音? 如何打开另一个对话框 政治因素对我国军事专家的困扰[ZT] if ((btime==null)&&(etime==null )) 请教 一位女同事辭職,一位男同事說跟我有關,鬱悶中... 请问如何在B/S模式下,在页面上实现,如word,excel中的编辑功能? 如何画一个二元函数的图象 急!高分求教:Epson TM U300微型打印机打印作业丢失问题!(100分) word中如何做浮动窗口或按钮等? 大于255个字符的SQL语句如何来写?在线等待 請大家不要煩這種貼子,我都更煩.我是沒有辦法了 兼职Java软件工程师 怎样去掉用户输入的字符串里的引号? 如何获得 表中定位的 消息? 在keil下的debug session下遇到的问题。 高分相送,不够另开贴相送 有没有类似数字里的sum函数对应的把文本连接起来的函数啊 It hosts Microsoft ActiveX&reg; Controls and supports the OLE Control '96 (OC96) specification for windowless controls请帮忙翻译 数组的问题 在三角形ABC中,角C=90度,D是BC中点,且角ADC=45度,AD=2,求tanB的值有图的,但还不能传,大概描述下A在C的上面,B在 C的右边,其他的没什么了吧应该听得懂吧~ 已知△AOB的顶点坐标分别是A(4,0),B(0,3),O(0,0),求△AOB外接圆的方程. 孟子原文到底是 天降大任于是人也 还是天降大任于斯人也?我要证据 课本上的不算要尊重原文啊 虽然意思差不多 原文到底是啥. 在三角形abc中 角c 90度 点d是bc的中点 且角adc 60度 ac等于根3 求tanb的值 已知△AOB的顶点坐标分别是A(4,0),B(0,3),O(0,0),求△AOB外接圆方程. 孟子的“天降大任于斯人也”后面是什么? 在△ABC中,∠C=90°,D是BC的中点,且∠ADC=50°,AD=2.求tanB的值 化简m-n+3(m-n)-5(m-n)的结果等于 初四数学二次函数图像,16题,求讲解, 7分之3:6分之5的最简整数比 已知集合M={x-y,x+y,xy},P={x²+y²,x²-y²,0},且M=P,求实数x,y的值. 求f(x)=2cos(x+π/3)-1,求当x∈[π/6,π]的最值 求f(x)=2cos(x+π/3)-1,求当x∈[π/6,π]的最值 6分之5比4分之3的最简整数比是多少 外偏旁口内一女字怎么读如题 f[f(x)]的定义域是R,但不包括1? 子曰:人而不仁,如礼何,人而不仁,如乐何的意思 分光计的反射镜能不能随便放置 邻补角是互补的一种特殊情况,数量上()位置上有一条() 在三角形ABC中,角C=90度,D是BC的中点,角ADC=60度,AC=根号3,求三角形ABD的周长 已知三角形AOB的顶点分别A(-1,5),B(5,5),O(6,-2),求此三角形的外接圆的方程 导数问题,大神来! 如果任意x1∈A,存在x2属于B,若f(x1)>g(x2)应该转化为f(x1)min>g(x2)max还是f(x1)min>g(x2)min还有,如果两个都是任意,或都是存在,那样应该怎么转化? 在Rt三角形ABC中,角c=90度,D是BC的中点,角ADC=60度,AC=根号3,解这个三角形 家长用什么教育方法让孩子初步感知生活中数学的有用和有趣 “插叙”这一方面的定义、作用 已知2/x+3+2/3-x+6x-6/x^2-9的值为整数,则整数x有若2x-18/x^2-9的值为整数,则整数x有,我化简下来就是2x-18/x^2-9,接下来不会算了 高一数学题在线求解 x可以是2吗 在第三步 为什么 求插叙的意思 已知关于x的一元二次方程x²+(m+3)x+m+1=0.求证:无论m取何值,原方程总有两个不相等的实数根. 如何引导幼儿感知和体会生活中的数的有用 已知a、b、c是三角形abc的三边.且满足a4+b2c2=b4+a2c2,试判断三角形abc的形状.阅读下面解题过程:由a4+b2c2=b2+a2c2 得:a4-b4=a2c2-b2c2 1(a2+b2)(a2-b2)=c2(a2-b2) 2即a2+b2=c2 3所以三角形ABC为直角三角形试问 已知关于x的一元二次方程x²+(m+1)=0,求证:无论m取何值,原方程总有两个不相等实数根 孩子体验盲人生活后家长的感受 a,b,c是三角形ABC三条边,满足a4-a2c2=b4-b2c2,判断三角形形状、 m的2次方加m加1/4,分解因式 (m+3)的平方-4m大于等于零,可以化简为(m+3)的平方-4m大于等于零,可以化简为 绝对值最小的数是是什麼? 已知一元二次方程x²-2x+m-1=0 (1)说明当m取任何实数时,方程有两个不相等的实数根已知一元二次方程x²-2x+m-1=0 (1)说明当m取任何实数时,方程有两个不相等的实数根 (2)当m分别取-2.0. n的平方减去m的平方 分之 m的平方减去n的平方 化简 等于多少 二次函数,初四.已知抛物线与x轴交于A(-2,0) B(4,0),和y轴交于C(0,8).(1)求抛物线的解析式和它的顶点D的坐标 (2)设直线CD交x轴于E,在线段OB的垂直平分线上是否存在点P,使得P到直线CD 直线m平行于直线n,则此时角1角2角3角4之间有什么关系最好要过程 恻隐之心,仁之端也;差恶之心,义之端也,辞怀之心,礼之端也是非之心,智之端也,]这名言的意思是什么� 在EXCEL表格中,将一组数字设了加法公式,后来又删除了其中一个数字,所得数字为什么变大了得数不但没变小,反而变大了,得数是加上那个数字的和.减去一个数字后的得数是刚才总和再加上减 邮编056200每个数字是什么意思 1道初四数学二次函数题在一个直角三角形的内部作一个矩形ABCD,其中AB和CD分别在两条直角边上.(点A就是直角A)1.设矩形的一边AB=x,那么边AD的长度表示为( )2.设矩形的面积为y,当x取何值时y 已知abc为三角形ABC的三边长,且满足a2c2-b2c2=a4-b4,试判三角行ABC的行状. 邮编的每个数字有什么含义? 有没有高人能告诉我初四数学二次函数怎么学?哎天哪,英语,政治都是第一,数学考得很烂,最后虽然考了第一但是非常侥幸,冒了我一身虚汗,有人能告诉我这部分数学知识怎么学吗?听课听得很 已知△ABC的三边长为a.b.c,他们满足a2c2-b2c2=a4-b4求三角形的形状,证明 如图所示 在三角形ABC中,角C=90度,AC=BC,角平分线AD=8cm,试求三角形ABC的面积. 实践调查作业的格式怎么写绿色环保实践作业与生活有关 一个样本容量为50,分成若干组,在它的频数分布直方图中(纵轴为 频数/组距),某一组相应的小长方形的面积为20,则落在该组的频数为( ),图中个小长方形的面积和为( ). 已知x1+x2=m,x1x2=3,x2+x3=2,x2x3=m,求m 三个和尚为什么没水喝? 地理(大洋洲)位置:位于______ 与 ______ 之间,西临______ ,东临______ ,与 ______ 洲, ______ 洲隔海相望,既跨 ___半球,也跨___ 半球 2、范围:包括______ 大陆,______ 岛,______ 南、北岛,______ 岛 “若溶质为结晶水合物,溶于水后,其溶质的质量就不包括结晶水的质量了”为什么这么说? 效率高的复习方法 题目是我为祖国自豪,要写我的实践和体会,该怎么写呢? a的平方等于30,求a等于多少? 已知△AOB的顶点坐标分别是A(4,0)B(0,3)C(0,0)求AOB外接圆方程(两种方法)我要具体过程! 孟子的“天降大任”的含义是什么?对此你有什么看法? 俄总统普京将访问越南 适逢俄越潜艇交法两名记者在马里遇害 遗体遍布弹孔新加坡女子用“脸书”寻亲 1个月内找日本岩手县一飞行员因骗取研修费被捕朴槿惠出席法国韩剧派对 当地民众热情夫妻生三胞胎 照顾不暇求助志愿者(图日本岩手县一飞行员因骗取研修费被捕新加坡女子用“脸书”寻亲 1个月内找加沙唯一发电站停运 民众秉烛抗议每天美国“粮票”遭削减 部分人将失去领取斯诺登抨击美国国家安全局为“最坏犯罪两岸企业家聚紫金山峰会 名流荟萃商产三中全会前瞻:勇于担当绘蓝图 凝聚共朴槿惠就历史问题斥责日本 称元首会晤哥伦比亚警方截获1.5吨可卡因 逮捕环保部:局地雾霾天气频发 做好大气污俄总统普京将访问越南 适逢俄越潜艇交萧山冤案一审审判长辞去余杭区法院院长煤矿安监局:加快小煤矿关闭退出 严格浙江萧山冤案一审审判长辞去余杭区法院怀孕妻子为出轨私自堕胎 丈夫暴怒下杀南水北调郑州段已安排应急联动工作演出开始了每份卷要过四关主观题也要网上评菜鸟牵手中国邮政快递业将广设自提点擦肩而过打酱油?没意思!搅搅局?挺有趣!寻迹中原古竞技搞不掉的“教父”河南:政府发布的信息要让群众听得懂国台办主任本月下旬应邀访台哎哟这是谁家小可爱?给自己道歉廉政漫画大赛启动“空中菜园”不应成“法外之地”晨钟(陈中)教育集团赴南阳慰问殷晓非夏日冲凉好舒爽和4G看球,比现场直播快一步提起“世界杯”想到了“马别腿”温暖的阳光总能直透人心张志军本月下旬访台希望爸爸的年龄能倒着长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘