<div>
Usage correction:<br />
<br />
Private Sub Command1_Click()<br />
MsgBox Hex(GetSerialNumber(&quot;c:\&quot;)<wbr />)<br />
End Sub
</div>


Usage correction:

Private Sub Command1_Click()
MsgBox Hex(GetSerialNumber("c:\"))
End Sub

<div>
Or if you want the NNNN-NNNN format:<br />
<br />
Private Sub Command1_Click()<br />
MsgBox Format(Hex(GetSerialNumber<wbr />(&quot;c:\&quot;)), &quot;&amp;&amp;&amp;&amp;-&amp;&amp;&amp;&amp;&quot;)<br />
End Sub
</div>


Or if you want the NNNN-NNNN format:

Private Sub Command1_Click()
MsgBox Format(Hex(GetSerialNumber("c:\")), "&&&&-&&&&")
End Sub

<div>
<div class="content wysiwyg-content">
Hi<br />
&nbsp; <br />
&nbsp; Is there anyway of extracting Hard Disk Identification No, CDR No and Floppy Disk No
</div>
</div>


Hi
  
  Is there anyway of extracting Hard Disk Identification No, CDR No and Floppy Disk No

HDD No

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.