代码：
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:")->
    希望这篇VB的取磁盘序列号卷标和文件系统类型的文章能够对您有所帮助，如果您觉得这篇网站维护教程有用的话，别忘了推荐给您的朋友哦！如果您有好的经验方法，不妨拿出来和大家一起分享：假如每个人都拿出一个经验，那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名：（黑客防线网安服务器维护方案维护基地）Www.Rongsen.Com.Cn