首页 应用 游戏 资讯 攻略

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

时间:2011-04-25 来源:网络

  代码:

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

阅读全文
关键词:
Visual Basic教程专题
Visual Basic教程专题
  • 编程开发
进入专区
玩家热搜

相关攻略

正在加载中