- 关 键 词:
- 网络硬盘
現在硬盘越来越好,硬盘容量越来越大,很多人的硬盘都采用 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
更多内容请看硬盘维护与数据恢复专区、话说硬盘知识、带你认识硬盘知识专题,或进入讨论组讨论。
相关专题
- 硬盘维护与数据恢复专区 (3680篇文章)
- 话说硬盘知识 (2868篇文章)
- 带你认识硬盘知识 (2868篇文章)
- 硬盘大全--测评、报价 (2868篇文章)
- 硬盘知识 (2868篇文章)
- FAT分区格式基础及应用 (57篇文章)
- VB+Access设计图书管理系统 (104238次浏览)
- VB设计有语音报时和报警功能的闹钟 (13528次浏览)
- 用VB打造“超酷”个性化菜单 (667次浏览)
- VB基础学习:编码规范 (654次浏览)
- 对注册表进行编程的“捷径” (646次浏览)
- 在IIS中建立WEB站点的例子! (603次浏览)
- 用VB6.0设计简易赛车游戏 (414次浏览)
- 导入注册表设置 (308次浏览)
- 用Visual Basic.NET编写扑克牌游戏 (189次浏览)
- VB急速密码生成---RndString (188次浏览)



