【开源】取指定磁盘序号的最简单方法

阿杰

<p><font face="Verdana">Private Declare Function GetVolumeInformation Lib "kernel32" _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Alias "GetVolumeInformationA" _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (ByVal lpRootPathName As String, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ByVal lpVolumeNameBuffer As String, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ByVal nVolumeNameSize As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lpVolumeSerialNumber As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lpMaximumComponentLength As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lpFileSystemFlags As Long, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ByVal lpFileSystemNameBuffer As String, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ByVal nFileSystemNameSize As Long) As Long</font></p>
<p><font face="Verdana">Private Sub Form_Load()<br/>Dim sDriveLetter As String<br/>Dim RetVal As Long<br/>Dim lpName As String<br/>Dim nSize As Long<br/>Dim nSerial As Long<br/>Dim lpMaxComp As Long<br/>Dim nFileFlags As Long<br/>Dim lpFileName As String<br/>&nbsp;&nbsp;&nbsp; lpName = Space(255)<br/>&nbsp;&nbsp;&nbsp; lpFileName = Space(255)<br/>&nbsp;&nbsp;&nbsp; nSize = 255</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; sDriveLetter = "c:"&nbsp;&nbsp;&nbsp; '这里你可以指定任何盘号<br/>&nbsp;&nbsp;&nbsp; RetVal = GetVolumeInformation(sDriveLetter, lpName, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nSize, nSerial, lpMaxComp, nFileFlags, lpFileName, nSize)<br/>&nbsp;&nbsp;&nbsp; '你可以看出,不仅能得到序列号,还可以得到其他很多信息</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; If RetVal = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '这里是你的错误处理代码<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub&nbsp;&nbsp;&nbsp; 'Quit the subroutine<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If nSerial &lt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print CStr(Abs(nSerial))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print CStr(nSerial)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</font></p>
<p><font face="Verdana"><br/></font>&nbsp;</p>