how to read HDD No

[daimler007]

Hi every body
anyone can help me that how to read HDD No while VB programming is running....? is it possible or not if pos how to campare the value with a given string...?

[kadghar]

Hi every body
anyone can help me that how to read HDD No while VB programming is running....? is it possible or not if pos how to campare the value with a given string...?

use the GetVolumeInformation function.first declare it (you can find this in google):

Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

And then just use it, you'll need a couple of longs and strings of character 0 many times in the buffers. something like this should do

sub HDDtest()
dim Lng1 as long
dim HDDnum as long
lng1=getvolumeinformation("C:\",string(100,chr(0)),100,hddnum,0,0,string(100,chr(0)),100)
msgbox "The HDD number is: " & hddnum
end sub

well HTH

[Killer42]

Or if you prefer not to dabble in API funtions, just add Microsoft Scripting Runtime to your project, and try this code...

Dim f As New FileSystemObject
Dim d As Drive
On Error Resume Next
For Each d In f.Drives
  Debug.Print d.DriveLetter, d.DriveType, d.VolumeName, d.SerialNumber
Next

[jamesd0142]

just add Microsoft Scripting Runtime

what does that mean?

[kadghar]

what does that mean?

its an activeX reference to get acces to files and all that stuff. I didnt know you could get hdd's serials with it :) nice.

[Killer42]

what does that mean?

Since I don't think you've mentioned your version, I'm going to assume VB6. Pull down the Project menu, select Components. On the list that comes up, select the checkbox next to "Microsoft Scripting Runtime". Don't know how it works in later versions.

For more details, look up "FileSystemObject model" in your documentation. There's also a sample in the VB Articles area (see the "Articles" dropdown menu at the top of this page) which shows how to read a text file using the FileSystemObject. This might help to get you started.