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

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资料 定义全局热键-VB资料 动记录应用软件工作时间-VB资料 动态改变屏幕设置-VB资料 读取档案的建立时间及存取时间 -VB资料 多个参数的属性 -VB资料 发现剪帖板的秘密 -VB资料 发现拖(Drap)过来的信息 -VB资料 防止打开同个VB应用多个实例 分割图像的原理 -VB资料 封面的设计 -VB资料 改变 Win95 的 Shell -VB资料 改变墙纸 -VB资料 格式化磁盘 -VB资料 跟我学用ActiveBar-VB资料 VB获得IE的版本号 VB获得Windows启动方式 VB获得打印机驱动程序的设定 VB获得当前计算机上的区域设置 VB获得当前用户名 VB获得分区信息并判断是否有CD VB获得某个文件夹下的所有子目录 VB获得驱动器的卷标 VB获得系统中的所有字体列表 VB获得系统中鼠标的键数 获取驱动器信息-VB资料 文章主题: 获取桌面图象 -VB资料 寻找一个叫dingke的朋友,我将把邮箱给你,但我不小心弄丢了你的联系信箱,请速与我联系 为什么delphi程序总是有sysinit和system单元? 哪里有完整的MINE解码组件 有关关机程序的问题,帮帮忙。 安装树的问题?????????? 求助!关于ip地址数据库的 读多个串口时为什么时钟停止了? 安装树的问题?????????? 请教FxScanner是什么程序? 请大家出主意 为什么总是让我下载java虚拟机 调查一下大家在用VB做软件时最常用哪些控件呀, DataGrid_UpdateCommand里怎么取不到变化后的值 求助!关于ISAPI的问题? 一个简单问题,高分求解。。 我是东东树的妹妹,我有问题要问大家。关于jsp页面重定向问题? system.globaliztion.cultureinfo("en_US") 是不是C#中要进行字符集的转换处理 请问以下构造函数的sql有什么错误?提示AS附近由于发错误,字段名可以用变量吗? windows2000与windows2003的互相访问的问题? 一个简单基本的问题求教高手,急在线等 Blue Workshop产品消息:.Net插件Replace it 1.3在CSDN和www.skycn.com.cn总下载量突破900次; SharpRefactor(C#代码重构工具)在CSDN的下 J2ME中文显示问题,急!! ado.net 我发现JSP一个奇怪的问题???想要看看吗???进来呀!!! 昨晚2点多一个mm突然打电话找我聊天,各位觉得我有戏没? 哪里有完整的MINE解码组件 为什么我装完FreeBSD系统启动时Sendmail启动的特别慢,telnet时也很慢。 小弟初学JSP,想搞点源代码来学习学习。 难搞的MIDAS 局域网的问题,急死了, vb中继承及分辨率问题 ASP里有没有带下拉框的输入框? 象素数据和图象数据 公司的一个数据库被人del,现在想查查是谁什么时候做的? 为什么我的窗口无法操作 关于oracle数据库增量备份土土的一问。 ArrayList问题 请教:在CB6下面怎么用 TMediaPlayer 控件来录音? 南开的vb习题集!!! 请问:如何在servlet中获得当前时间和当前日期?菜鸟问题,请见谅。 为什么我的opendialog不能返回filename,而返回了一个 $符号 大家对购买tcl笔记本等国产笔记本有没有什么建议? 第一次用vfp,新手提问? 请问哪位大虾知道,Crystal 7.0如何记忆上次打印该报表的打印机 纸张大小 纸张方向 边界设定等 如何自动生成新页? 显示器问题!! [代码发布]使用 Lostinet.SqlScope 4.0 实现高效的SQL SERVER应用程序 关于Decode函数的问题 WIN2000下的关机问题?请高手们想想办法! 寻找一个叫dingke的朋友,我将把邮箱给你,但我不小心弄丢了你的联系信箱,请速与我联系 请问:Dialog中可以重载LButtonDown事件吗? 什么是粗盐 这个是粗盐吗? 粗盐有什么味道 粗盐减肥法一定用粗盐吗 result和consequence在“结果”这个含义上的区别 学了摩擦力和二力平衡,偶有点不解……不是说滑动摩擦力的大小只与接触面的粗糙程度和压力有关吗?可是二力平衡里面在木板上做小车实验,改变对小车的推力使之做匀速直线运动,他的摩擦 1、两个铁钉被磁铁吸引,都知道在两铁钉末端都是排斥的,那为什么铁钉前头不会排斥呢?2、某同学站在 干燥的木凳上检修电灯,一手伏在水泥墙上,另一手接触火线进行维修回触电吗?(老师总 物理上代表压强的P/Pa与代表功率的P/W是不是相同的啊?知道的答 粗盐加工食用盐方法 在医院,患者出现贫血,患者的亲属可以给患者输血吗? 小华用积木搭楼梯,前面3级用6块积木,搭后两级用几块积木 QQ群里热聊\"如何结束生命\" 2应急反应从2小时缩短为5分钟 水管理“好声音”导师汪峰开唱 不理与章子怡韩国称重启金刚山旅游需首先保障游客安北京办豪华婚宴村官身价过亿 村民曝光汪洋:中国优先推进西部大开发的决心不公众对深化改革愿望迫切 民意成破解阻俄媒:中印11月举行联合军事演习 或超9成受访者关注三中全会 期待拆解户统计局:四大指标一致向好 中国经济活欧洲射手榜意前锋比肩梅西 荷甲前锋占6岁留守女孩遭校车挂倒头部着地身亡国锦赛资格赛丁俊晖6-0大胜 正赛首认准一件事,坚持做下去,争取做最好 10月1日出生或名叫“国庆”:荔枝湾游客市民“挤爆”水巴码头 秩序混乱换国际新闻早报:禁化武组织专家小组与叙叙利亚开始化学武器销毁工作 按时完成在改革创新中开创宣传思想工作新境界河北各地全力应对重污染天气 控制排污安倍:中国试图用强力来改变钓鱼岛现状9月份中国制造业PMI为51.1%
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘