VB取磁盘序列号卷标和文件系统类型
作者：佚名 来源：不详 发布时间：2006-12-29 13:23:30
减小字体
增大字体
声明：
PrivateDeclareFunctionGetVolumeInformationLib"kernel32.dll"Alias"GetVolumeInformationA"(ByVallpRootPathNameAsString,ByVallpVolumeNameBufferAsString,ByValnVolumeNameSizeAsInteger,lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAsLong,lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAsString,ByValnFileSystemNameSizeAsLong)AsLong
代码：
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:\")->
【itbulo.com/post.php?action=newthread&fid=51&extra=page%3D1" title="如有错误，麻烦请及时告诉我们,谢谢。" target="_blank">我要纠错】【itbulo.com/" target="_blank">进入论坛交流】【关闭此页】【iTbulo.net/" class="lblue" target="_blank">进入博客】
在百度中搜索更多VB取磁盘序列号卷标和文件系统类型相关网页
转贴于：中国下载站
上一篇文章：用VB获得大容量硬盘信息
下一篇文章：StatusBar显示数据库的属性
阅读统计:[]
【中国下载站】【设为主页】【收藏本页】【打印本文】【回到顶部】【关闭此页】
相关文章
文章评论（评论内容只代表网友观点，与本站立场无关！）
您现在的位置：