VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何知道硬盘是使用那一种文件系統(FAT32,FAT16)?
发表评论(0)作者:, 平台:, 阅读:8545, 日期:2000-04-06


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

来源:VBPJ

版本:VB6 / VB5 / VB4-32

资料整理:影子 VB爱好者乐园艺 yingzi007.126.com





現在硬盘越来越好,硬盘容量越来越大,很多人的硬盘都采用 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!