CodeItBetter Programming Another VB Programming Blog

'System & API - How to get the USB's Serial Number
Option Explicit
 
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
 
Private Const MAX_BUFFER As Long = 256
 
Public Function GetVolSerNo(ByVal sDrive As String) As String
    Dim sVolumeName As String * 256
    Dim sFileSystem As String * 256
    Dim lSerNo As Long
 
    If GetVolumeInformation(sDrive, sVolumeName, MAX_BUFFER, lSerNo, 0, 0, _
        sFileSystem, MAX_BUFFER) Then
        GetVolSerNo = Hex$(lSerNo)
    End If
End Function
 
Sub Main()
    Debug.Print GetVolSerNo("D:\")
End Sub