Private Declare Function GetVolumeInformation Lib "kernel32.dll"
Alias "GetVolumeInformationA" (ByVal
lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal
nVolumeNameSize As Integer, lpVolumeSerialNumber As Long,
lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal
lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)
As Long
代码：
Function GetSerialNumber(sRoot As String) As
Long Dim lSerialNum As Long
Dim R As Long Dim sTemp1 As String, sTemp2 As
String strLabel = String$(255, Chr$(0))
' 磁盘卷标 strType = String$(255,
Chr$(0)) ' 文件系统类型 一般为 FAT R =
GetVolumeInformation(sRoot, strLabel, Len(strLabel), lSerialNum, 0, 0,
strType, Len(strType)) GetSerialNumber =
lSerialNum '在 strLabel 中为 磁盘卷标 '在 strType 中为
文件系统类型 End
Function
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
