http://CrazyCoder.cn/Tag/23822/Index.html 2010-07-31 CrazyCoder 1.0(beta) zh-cn Copyright 1996 - 2008 疯狂代码 All Rights Reserved. 2010-07-31 http://CrazyCoder.cn/VisualBasic/Article14874.html
声明:

private declare function getvolumeinformation lib \"kernel32.dll\" alias \"getvolumeinformationa\" (byval lprootpathname as , byval lpvolumenamebuffer as , byval nvolumenamesize as eger, lpvolumeserialnumber as long, lpmaximumcomponentlength as long, lpfilesystemflags as long, byval lpfilesystemnamebuffer as , byval nfilesystemnamesize as long) as long


　　 代码:

function getserialnumber(sroot as ) as long
dim lserialnum as long
dim r as long
dim stemp1 as , stemp2 as
strlabel = $(255, chr$(0))
注释: 磁盘卷标
strtype = $(255, chr$(0))
注释: 文件系统类型 般为 fat
r = getvolumeinformation(sroot, strlabel, len(strlabel), lserialnum, 0, 0, strtype, len(strtype))
getserialnumber = lserialnum
注释:在 strlabel 中为 磁盘卷标
注释:在 strtype 中为 文件系统类型
end function



　　 使用方法:

　　 当驱动器不存在时返回 0如果是个非根目录也将返回 0:

lserial = getserialnumber(\"c:\\\") [查看PDF电子文档] ]]> VB教程 2009-02-12 http://CrazyCoder.cn/VisualBasic/Article14874.html