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:\ "
0条评论