Get Pendrive Serial Number Using VB6 1

[plopez]

Hi,

I need to know how can I get the Pendrive serial number using VB6 Code...

Thanks for your help.

 

[gmmastros]

I don't know if this will work for a pen drive, but it certainly works for local hard drives.

To use this code, you'll need to add a reference.

Click Project -> References
Scroll to 'Microsoft Scripting Runtime'
Select it.

Option Explicit

Private Sub Form_Load()
    
    Dim FSO As Scripting.FileSystemObject
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    MsgBox FSO.GetDrive("[!]C:\[/!]").SerialNumber
    Set FSO = Nothing
    
End Sub

-George

"The great things about standards is that there are so many to choose from." - Fortune Cookie Wisdom

 

[plopez]

Hi gmmastros,

it works very good ...thanks