频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

如何知道硬盘是使用那一种文件系統(FAT32,FAT16)

来源: 作者: 出处:巧巧读书 2006-09-14 进入讨论组

  現在硬盘越来越好,硬盘容量越来越大,很多人的硬盘都采用 FAT32 的文件系統,当然还有人采用 FAT16,而 NT 则可能为 NTFS,在 VB 中我们也可以判断出来!


'在表单的声明区区中加入以下的声明及模块:


Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _

(ByVal lpRootPathName As String, ByVal _

lpVolumeNameBuffer As String, ByVal _

nVolumeNameSize As Long, _

lpVolumeSerialNumber As Long, _

lpMaximumComponentLength As Long, _

lpFileSystemFlags As Long, ByVal _

lpFileSystemNameBuffer As String, ByVal _

nFileSystemNameSize As Long) As Long


Public Function WhichFileSystem(ByVal Drive As String) As String

Dim sVolBuf As String * 255

Dim sSysName As String * 255

Dim lSerialNum As Long

Dim lSysFlags As Long

Dim lComponentLength As Long

Dim lRes As Long

lRes = GetVolumeInformation(Drive, sVolBuf, 255, lSerialNum, _

lComponentLength, lSysFlags, sSysName, 255)

If lRes Then

WhichFileSystem = Left$(sSysName, InStr(sSysName, Chr$(0)) - 1)

Else

WhichFileSystem = ""

End If

End Function

'在程序中要使用时,只需输入硬盘代号即可,如下:


Msgbox WhichFileSystem("C:\")


注意:


在 NT 上的光碟机 J:\,由于已经 Map 成网络硬盘,所以检测結果为 FAT 而不是 CDFS!转 载:http://www.qqread.com/vb/s236275.html 更多文章 更多内容请看硬盘维护与数据恢复专区话说硬盘知识带你认识硬盘知识专题,或进入讨论组讨论。

收藏此文】【 】【打印】【关闭
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
最新论坛文章
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障XP系统修复
艺 术 与 设 计设计 流媒体 设计欣赏 边框
计 算 机 安 全ARP
站内频道文章精选
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章