VB读取硬盘系列号问题 - VB / 基础类
需要弄个读取硬盘系列号的程序（机器中可能会有超过4块硬盘），能不能通过盘符获取该磁盘所在物理硬盘的系列号
请帮忙弄个代码学习下，谢谢？
搜一下有很多,给一段代码参考
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Type SerHdInfo
strLabel As String
strType As String
serNum As String
End Type
Public Function GetSerialNumber(sRoot As String) As SerHdInfo
Dim lSerialNum As Long
Dim R As Long
Dim RevVal As SerHdInfo
RevVal.strLabel = String$(255, Chr$(0))
' 磁盘卷标
RevVal.strType = String$(255, Chr$(0))
' 文
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
求个vb中的sql语句的写法，次sql语句的用法是分页程序
我写的如下：其中A是用来接收每页显示的记录的条数，B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......
