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

来源:网络时间:2011-04-25 13:01:43

  代码:

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:\")->

文章内容来源于网络,不代表本站立场,若侵犯到您的权益,可联系我们删除。(本站为非盈利性质网站) 联系邮箱:9145908@qq.com