Serial For c: drive

[JasonLpz]

Im on winxp and 98 . I use the

Public 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

code. but it the serial part returns a 0 when i select a hdd with xp. And i have a hdd 120 gig partitioned and i get a 0 on both hdd's

[Kunchesm]

Option Explicit
Dim fso As FileSystemObject
Dim drvs As Drives
Dim drv As Drive

Private Sub Form_Load()
Set fso = New FileSystemObject 'Create the File System Object
Set drvs = fso.Drives 'Extract the drives from the object
'Extract and display the info from each drive object
For Each drv In drvs
With drv
If .IsReady Then
Debug.Print "Volume name - " & .VolumeName
Debug.Print "SeriaNumber - " & .SerialNumber
End If
End With
Next
End Sub