How to retreive volume of Hard Drive

[aamer]

I am in need to get the Volume and serial No. of my Hard Disk with Visual Basic 5. The "Dir" command gave me the volume but I also want the Serial No. (Similar to Vol command in DOS).

[Serge]

Declare this on General declaration of a module:


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



Then put this on any event:


Dim strDrive
Dim lRet As Long
Dim strFileSystem As String
Dim strVolName As String
Dim lSerialNumber As Long

strDrive = "C:\" 'change to any drive letter here
strFileSystem = Space(255)
strVolName = Space(255)

lRet = GetVolumeInformation(strDrive, strVolName, Len(strVolName), lSerialNumber, 255, 1, strFileSystem, Len(strFileSystem))

MsgBox "Volume Name: " & strVolName & vbcrlf & "Serial Number: " & lSerialNumber



Best regards,

------------------

Serge

[email protected]
[email protected]
If you have any questions about AOL programming, e-mail me