assign drive letter to hard disc using it serial number or name

[asihuay]

Hi.
I am looking for vba or vb code to unassign, assign, switch, drive letter.
The hard disc will be identified by its serial number or by its name.
Thanks in advance.
asihuay

[Jx_Man]

this following code to read name and serial number of HD :

Private Type DRIVEINFO
    HDDModel As String
    HDDIType As String
    HDDSerialNum As String
End Type
   
Dim info As DRIVEINFO
Public Function HDDSerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
    
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("Win32_DiskDrive")
    For Each obj In objs
        info.HDDModel = obj.Model
        info.HDDIType = obj.InterfaceType
    Next obj
    
    Set objs = WMI.InstancesOf("Win32_PhysicalMedia")
    For Each obj In objs
        info.HDDSerialNum = obj.SerialNumber
    Next obj
    Text1.Text = info.HDDModel
    Text2.Text = info.HDDIType
    Text3.Text = info.HDDSerialNum
End Function

Private Sub Form_Load()
HDDSerialNumber
End Sub