如何判断当前分区是fat32还是NTFS分区! 如何判断当前分区是fat32还是NTFS分区! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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 LongPrivate Declare Function GetDriveType Lib "kernel32" _Alias "GetDriveTypeA" (ByVal nDrive As String) As LongConst DRIVE_CDROM = 5使用:Dim VolName As String, FSys As String, erg As LongDim VolNumber As Long, MCM As Long, FSF As LongDim Drive As String, DriveType As LongVolName = Space(127)FSys = Space(127)Drive = "c:\" 'Enter the driverletter you wantDriveType& = GetDriveType(Drive$)erg& = GetVolumeInformation(Drive$, VolName$, 127&, _VolNumber&, MCM&, FSF&, FSys$, 127&)Print "分区名称:" & vbTab & VolName$Print "序列号:" & vbTab & VolNumber&Print "最大文件名称长:" & vbTab & vbTab & MCM&Print "文件系统标志:" & vbTab & vbTab & FSF&Print "文件系统名称:" & vbTab & FSys$Print "类型:" & vbTab & DriveType&; MsgBox CreateObject("scripting.filesystemobject").GetDrive("C").FileSystem 大家都来接分啊.来晚上就什么都没有了. 怎样恢复窗体关闭按钮(显亮) 请问如何在label中显示SQL的查询结果? 把查询到的结果都显示出来 如何调用windows自带的日期控件? 实在头疼,API高手帮忙 data1.recordset是不是打开数据库后就自动生成的,我这里怎么出现“属性的使用无效”? 不明白为什么?高人帮忙看看 用AdoDC谢SQL的问题 终于毕业了…… 全球十大灾难性软件评选 微软产品独占四席 请各位高手帮忙:
"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 LongPrivate Declare Function GetDriveType Lib "kernel32" _
Alias "GetDriveTypeA" (ByVal nDrive As String) As LongConst DRIVE_CDROM = 5使用:
Dim VolName As String, FSys As String, erg As Long
Dim VolNumber As Long, MCM As Long, FSF As Long
Dim Drive As String, DriveType As Long
VolName = Space(127)
FSys = Space(127)
Drive = "c:\" 'Enter the driverletter you want
DriveType& = GetDriveType(Drive$)
erg& = GetVolumeInformation(Drive$, VolName$, 127&, _
VolNumber&, MCM&, FSF&, FSys$, 127&)
Print "分区名称:" & vbTab & VolName$
Print "序列号:" & vbTab & VolNumber&
Print "最大文件名称长:" & vbTab & vbTab & MCM&
Print "文件系统标志:" & vbTab & vbTab & FSF&
Print "文件系统名称:" & vbTab & FSys$
Print "类型:" & vbTab & DriveType&;