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

　　代码：

FunctionGetSerialNumber(sRootAsString)AsLong

DimlSerialNumAsLong

DimRAsLong

DimsTemp1AsString,sTemp2AsString

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中为文件系统类型

EndFunction

　　用法：

　　当驱动器不存在时，函数返回0 。假如是个非根目录，也将返回0：

lSerial=GetSerialNumber("c:\")->