当前位置:首页 > 开发教程 > Basic教程 >

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

时间:2013-09-18 11:34 来源: 作者: 收藏

2345软件教程,为您打造全面的软件教程手册,无论是新奇小软件的操作还是专业软件的使用技巧,2345软件教程都会为您解疑释惑。

核心提示: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:\")->


Basic教程阅读排行

最新文章