VB取磁盘序列号卷标和文件系统类型

声明:

private Declare Function getvolume information Lib " kernel 32 . dll " Alias " getvolume information a "(ByVal lproot pathname为字符串，ByVal lpVolumeNameBuffer为字符串，ByVal nVolumeNameSize为整数，lpVolumeSerialNumber为Long，lpMaximumComponentLength为Long，lpFileSystemFlags为Long，ByVal lpFileSystemNameBuffer为字符串，ByVal nFileSystemNameSize为Long)

代码:

函数GetSerialNumber(sRoot As String)一样长

Dim lSerialNum一样长

Dim R As Long

Dim sTemp1为字符串，sTemp2为字符串

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中，它是一个文件系统类型。

结束功能

用法:

当驱动器不存在时，该函数返回0。如果是非根目录，它也将返回0:

l serial = get serial number(" c:\ "