关于序列号！

Question

How to Determine the Disk Volume Label & Serial Number
http://www.mvps.org/vbnet/index.html?code/disk/volumelabel.htm

Answer 1

看看我的http://www.csdn.net/expert/topic/934/934383.xml?temp=.7288172http://www.dapha.net/vb/list.asp?id=1886

Answer 2

转贴，如下：
Dim drive$ 
drive = "c:" 
MsgBox UCase(Replace(drive, ":", "")) + " 盘的序列号是" + FORMat(CreateObject("scripting.FileSystemObject").GetDrive(drive).SerialNumber)  
注解： 
1.FORMat(expression[, FORMat])若只用一个参数exp则按默认的方式将exp转换为字符串 
2.CreateObject(class,[servername])创建并返回一个对 ActiveX 对象的引用。 
  class 参数使用 appname.objecttype 这种语法，包括以下部分： 
  部分 描述 
  appname 必需的；Variant（字符串）。提供该对象的应用程序名。 
  objecttype 必需的；Variant（字符串）。待创建对象的类型或类。 3.在程序中使用 FSO 对象模型来处理驱动器和文件夹，如同在“Windows 资源管理器”中能进行的交互方式一样。您可以复制和移动文件夹， 
 获得驱动器和文件夹的信息，等等。 
 如：驱动器序列号 (SerialNumber 属性) 
  
 FSO 对象模型包含在一个称为 Scripting 的类型库中，此类型库位于 Scrrun.Dll 文件中 
 例： 
 Dim fso As New FileSystemObject, drv As Drive, s As String 
  Set drv = fso.GetDrive(fso.GetDriveName("c:"))  FSO 对象模型编程包括三项主要任务： 
  1).使用CreateObject 方法，或将一个变量声明为 FileSystemObject 对象类型来创建一个 FileSystemObject 对象。 
  2).对新创建的对象使用适当的方法。 
  3).访问该对象的属性。 
 要访问一个已有的驱动器、文件或文件夹，请使用 FileSystemObject 对象中相应的 "get" 方法： GetDrive 、GetFolder、GetFile 4. 一个 FileSystemObject 对象以便进行处理。可以通过如下两种方法完成： 
  1).将一个变量声明为 FileSystemObject 对象类型： 
   Dim fso As New FileSystemObject   2).使用 CreateObject 方法来创建一个 FileSystemObject 对象： 
   Set fso = CreateObject("Scripting.FileSystemObject")------注意 
  在上面的语法中， Scripting 是类型库的名称，而 FileSystemObject 则是想要创建一个实例的对象的名称。 
  注意 :第一种方法只在 Visual Basic 中有效，而第二种方法在 Visual Basic 或 VBScript 中都是可行的 
5.综上所述：编这个程序的人一定对vb熟透了，所以能以最简便的方法写出这个程序段。他先用CreatObject()函数创建并返回一个FSO对象的引用 
既CreateObject("scripting.FileSystemObject")然后用这FileSystemObject个对象访问一个已有的驱动器GetDrive(drive)并获得硬盘序列号： 
SerialNumber 
最后再用FORMat转换成字符串用MsgBox输出: 
 MsgBox UCase(Replace(drive, ":", ""))+"盘的序列号是"+FORMat(CreateObject("scripting.FileSystemObject").GetDrive(drive).SerialNumber 
真是精简得3不能再精简了， 
我都是从MSDN上翻来的，翻了半天了，不知有没有写明白:)