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

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

HTML文档下载 WORD文档下载 PDF文档下载
VB如何知道硬盘是使用那一种文件系統(FAT32,FAT16)?
版本:VB6 / VB5 / VB4-32
現在硬盘越来越好,硬盘容量越来越大,很多人的硬盘都采用 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!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘