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

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制作VB安装程序问答(二) VB制作VB安装程序问答(一) VB制作帮助文件速成 重新验证 Win 95 用户口令 -VB资料 桌面的大小 -VB资料 字体改变事件 -VB资料 自定义组合热键 -VB资料 自动更换墙纸的小软件-VB资料 自动记录应用软件工作时间 -VB资料 自动卷动TextBox -VB资料 自动开始上次关机时关闭的应用 -VB资料 自动装入注册设置 -VB资料 自己编程模拟 MouseEnter,MouseExit 事件 -VB资料 走进VB6啃一块骨头 做成一个时间限制的测试版 -VB资料 PHP中利用jQuery实现SWF图像上传和裁剪 VB.NET或C#将DataSet快速导出到Excel中 HashSet的equals和hashCode重写问题 PendingIntent实现原理和代码 IntentService实现原理及内部代码 AsyncTask实现原理和内部代码 Neither user nor current process错误 ListView的右边滚动滑块启用方法 Live Wallpaper动态壁纸开发 控制软键盘显示和隐藏 设置Activity大小不再全屏原理 Android面试题,看看你基础如何? Android Canvas绘图抗锯齿解决方法 Android xliff和字符串资源 android.hardware.USB类介绍 Android开发经验谈之应用间数据共享 国外有没有类似http://bbs.51soft.com/的大的软件讨论站? 格式化字符串的问题 菜鸟 Combobox中如何设置默认值? 如果你是新手! [流氓兄:突然冒出很多新人。。。贴] 请转这里 菜鸟 一个有难度的问题 关于格式化字符串的问题。。。 MYSQL权限与mysql库里的所有表问题~!~!请指教! Installshield中怎样调用MSI文件,并能执行MSI文件 售书 鼠标指针的问题(菜鸟问) 向CList模板类的对象追加节点时出现异常,谁惹的祸??? 为什么我的VB运行时会清空剪贴板? 大侠求救!我的考试题!20分的!急急急急急急急急! 目前asp中使用的主要加密算法有哪些? 怎样设置tab! 关于vb的问题,谢谢大家了。 计算机操作者的食谱(想想大家每天都对着电脑,看看这个食谱吧,或许有好处,人还是要学会爱护自己) 如何将png文件格式转换成bmp文件格式,小弟急需这方面的资料,尤其是关于压缩方面的 关于在存储过程中调用链接服务器权限的问题 用vb打包程序打包后安装出错,运行不了? 我要独自去广州发展,请大家看看我的情况,给我一些帮助,如何在广州找工作? 求助!请问谁有源代码?(画一个线段、图形区域填充、图形区域截剪) 物价飞涨,福建省软考提价!!! 在数据表里,我保存了图片存放的路径,现在我想让他显示出来,怎么做啊?有几个方法啊,请指点 阿沐进来看看,你要的东西 VC++ ADO用SELECT FOR UPDATE锁定Oracle数据库的记录,为什么无效? 关于CGI连接关系数据库? 关于动态链接库一问,释放时的异常 阿沐进来看看2 怎样才能不添加OCX和DLL做出反色效果? 好奇怪的问题,大家帮忙来分析一下 阿沐进来看看3 !!再次求解,关于ADO!! 高分求解!高手请进!疑难杂诊? 在LINUX下,如何修改屏幕分辨率 请教如何将图片插入到sqlserver 7/2000里? 急急急!UDP的问题 有关ISA SERVER 昨晚做了个大梦,哈哈!! 疑问 JINI究竟是什么东东呀?去SUN看了半天也没能明白,谁能解释一下? vb.net的一个问题!!是关于在form1上写字的东西! 关于如何输入的问题*******vb高手请进***************(在线等候,我只有这么多分了) 简单的问题,textbox取不到值。 关于DIALOG对话框的继承问题 。 Response->SetCookieField()可以将用户登陆信息保存在cookie内,可是... 为什么我用AddString()无法为Combo Box添加上新项? 请问程序员中有多少是喜欢打《帝国时代》的,我是一个,请报名,谈谈感受。 文件读写:前一部分是文肩头,含几个概括性数据;后一部分是数量不定的大量整形数据。该怎么办?我想用块读写的方式,不知可否?解决了保 烟火的意义是什么? 节日的礼花是化学变化吗?霓虹灯呢? 去年冬天,学校的一根内直径 2 厘米的自来 水管被冻裂,导致大量水流失.水管内的水流速度为每秒8cm,如果一小时修不好,将会浪费多少升水? 锌粉和一些化学物质的水溶液能发生反应吗锌粉遇到水会生成氢气,那锌粉遇到酒精和水的混合溶液是不是也会先和水发生反应?和硫氰酸钠溶液呢?和稀硝酸是不是也能够直接生成氢气呢?反应 水压测试泵怎么用? 只管向前奔跑阅读答案 洗煤厂在洗选炼焦用煤时可以加无烟煤吗(为了降低灰份或挥发份)? 焰火表演是不是化学变化?霓虹灯表演呢?怎么区分. 穷人续写;西蒙的两个孩子长大以后知道了事情的真相,报答了渔夫和桑娜,从此过上了幸福的生活高手来垃圾滚 烟煤的灰份是多少? 下列色彩是由化学变化呈现出来的是 A雨后彩虹 B夜晚的霓虹灯 C节日的礼花 D彩色的图画 应该选C请好心人逐个选项讲解一下.谢谢了,很急,我就这儿不懂,九上化学好糊涂呀,谢谢了,急呀,好心 桑娜对渔夫说:咱们的邻居西蒙死了?”改为他人称转述句 真正的挤塑板的导热系数是多少? 下列景象伴随有化学变化的是 1.五光十色的烟火礼花 2.不断闪烁的霓虹灯 3.变化无穷的音乐喷泉 4.满屋飘香下列景象伴随有化学变化的是1.五光十色的烟火礼花 2.不断闪烁的霓虹灯 3.变化无 《穷人》想象:桑娜和渔夫收养西蒙的两个孩子后会发现什么?桑娜用头巾裹住睡着的孩子,把他们抱回家里.她的心跳得很厉害,她自己也不知道为什么要这样做,但是她觉得非这样做不可.回到家 作为外墙保温材料,挤塑板比聚苯板有哪些优点? 为什么霓虹灯是不同颜色的? 用尺子做一个证明响度与振幅有关的实验1.实验器材2. 地球是不是个原子或分子?或者是电子?我说的是比如说我们的宇宙在一个生物体内,银河系在这个生物的某个组织的某个细胞的里,是构成这个细胞结构的分子结构,或者原子结构或者其他 某同学用自来水制蒸馏水左边是一个带单孔橡皮塞的试管,中间是一根左端90°的导气管,右端插在另一个试管里,这个试管放在一个烧杯里?问 :该装置的玻璃导管较长,除导气外,其作用是?问: 空心菜的药用价值和营养价值? 地球大约有多少原子要数据,不要公式! 如何制出蒸馏水 请问蔬菜中空心菜和茄子有什么营养价值? 地球的原子数量有多少大概在多少数量级 制蒸馏水是什么变化 空心菜的营养成分是什么麻烦写出能量、水分、蛋白质、脂肪、糖类、胡萝卜素、维生素A、维生素B1、维生素B2、维生素C、维生素E、钙、铁、锌、磷、硒 原子为什么都是一样大?没有像地球一样大的原子吗?说错了,是核子 需要什么原料,具体步骤是什么, 一个人的奔跑 家因水压低,要安装水压泵,两层半(400平方).请介绍我家住楼顶的两层,水压一直不够,现在想安装水泵.但对这些没什么研究.最主要输出功率不知要多小.共400平方用.之前看了台湾华乐士水泵TQ400 空心菜什么营养 奔跑的雪糕阅读答案用简洁的语言概括中心事件2.文章以奔跑的雪糕为题目,有什么作用3.结合语境,品味句中加点词语的表达效果终于,在车站附近的一个超市里,父亲找到了一个装满雪糕、冰 如何用2字词语形容礼炮 如何用自来水制医用蒸馏水? 《穷人》桑娜和渔夫的性格 烟花用什么词语修饰最好.如题. 家里水压太小怎么办 《穷人》桑娜和渔夫是怎样的人 形容烟花味道的词语有哪些?要好的,不要说臭。 家里水压太低怎么办 穷人 桑娜和渔夫是什么样的人 描写礼花的诗句最好是直接描写的句子 空心菜怎么炒好吃 自来水水压不够该找哪个部门啊?我是济南的我住在闫千户小区 形容烟花美丽的词语有哪些? 清炒空心菜怎么做好吃?我是先放油,然后放大蒜,然后下空心菜,炒啊炒,干的话放点点水,结果出来的结果 不像饭店吃的那么绿,是有点发灰了.并且远不及饭店好吃. 穷人里渔夫,桑娜,西蒙分别有什么品质?秒之!行的话加悬赏 锌粉与氧化钙反应生成氢气吗? 只管向前奔跑 对题目有怎样的理解第二段写到:“贝基拉不知不觉地……他既羡慕又难过”根据对文中内容的理解,描写贝基拉此时的心理活动要求以第一人称完成一段60字的文字 自来水水压不够如何使用太阳能 空心菜的做法? 只管向前奔跑答案 刚刚水杯打碎,昨天才打碎一个杯子…请问这是什么兆头?刚刚放电脑睡觉的时候不小心吧水杯打碎,昨天刚刚打碎一个茶瓶, 阻燃膨胀聚苯板导热系数是多少 关于摩擦力做功的下列说法中正确的是A滑动摩擦力阻碍物体的相对A滑动摩擦力阻碍物体的相对运动,一定做负功b 静摩擦力和滑动摩擦力一定做负功c静摩擦力阻碍物体的相对运动趋势的作用, 大陆为什么昼夜温差大? 电子,银河系,地球,原子,太阳系,分子按从小到大顺序排列,该如何排? 白菜+青菜+空心菜=什么菜 先导式溢流阀中的先导是什么意思?为什么有的溢流阀有个调节压力的?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘