Set bDrives = x.Drives 'Retrieves a collection of all the drives on the computer and assigns it to bDrives. For Each aDrive in bDrives 'Loop through all the drives in the system MsgBox "Drive Letter : ...
' Drive Type will display only the number depending upon the type of the Drive. Each number represent different things which is mentioned below in the Select case loop. ' The loop is only for the ...