How to get the full name of a system disk, not a character, is the full name, such as: Local Disk (C:)?

Private Sub Command1_Click ()
Dim Shellapp, Opanel, FolderItem1, FOLDERITEM2, Oitem
Set Shellapp = CreateObject ("Shell.Application")
Set Opanel = shellapp.namespace (0)

Set FolderItem2 = Nothing
For each FolderItem1 in Opanel.items
If folderitem1.name = "My Computer" Then
Set FolderItem2 = FolderItem1.Getfolder:Exit for
End If
Debug.Print Folderitem1.name
Next

If FolderItem2 is nothing Then
MsgBox "Can't find the item! "
Exit Sub
End If

Set Oitem = Nothing
For each oitem in Folderitem2.items
Debug.Print Oitem.name
Next
End Sub



The output results are as follows:

Control Panel 3.5 Floppy disk (A:) WINDOWS98 (C:) program (D:) Local Disk (E:) Data Backup (F:) disc (G:)