how to read/view serial number of USB Mass Storage

[dr_aybyd]

Hi, can you help on how can i view the serial number of my usb mass storage device plug in in my usb port..thanks!

[mik706]

You can use this to retreve the serial number of a drive you just need to pass it the root path as a string.
This does hopwever mean you need to workout what the root path of your usb drive is first.

Public Declare Function GetVolumeSerialNumber Lib "Kernel32.dll" 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

Public Function VolumeSerialNumber(ByVal RootPath As String) As String
    Dim VolLabel As String
    Dim VolSize As Long
    Dim Serial As Long
    Dim MaxLen As Long
    Dim Flags As Long
    Dim Name As String
    Dim NameSize As Long
    Dim S As String
    If GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize) Then
        'Create an 8 character string
        S = Format(Hex(Serial), "00000000")
        'Adds the '-' between the first 4 characters and the last 4 characters
        VolumeSerialNumber = Left(S, 4) + "-" + Right(S, 4)
    Else
        'If the call to API function fails the function returns a zero serial number
        VolumeSerialNumber = "0000-0000"
    End If
End Function

usage:

Dim DiskNum As String

DiskNum = VolumeSerialNumber("C:\")

[dr_aybyd]

thanks mik i got it now..