現在硬盘越来越好，硬盘容量越来越大，很多人的硬盘都采用 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！
更多内容请看PCdog.com--FAT分区格式基础及应用 硬盘知识专题
